Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim path As Stream
    Dim path2 As New OpenFileDialog()
    Dim path3 As String
    path2.InitialDirectory = "c:\"
    path2.Filter = "*.exe | *.exe"
    If path2.ShowDialog() = DialogResult.OK Then path = path2.OpenFile()
    TextBox1.Text = path2.FileName
    path3 = path2.FileName
End Sub