Dim browse1 As New OpenFileDialog
With browse1
.Filter = "Executables (*.exe)|*.exe"
.Title = "Please select a file..."
.CheckFileExists = True
.CheckPathExists = True
End With
If browse1.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = browse1.SafeFileName ' Makes it so its just the filename not path
End If