Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim Ofd As New System.Windows.Forms.OpenFileDialog
Ofd.InitialDirectory = "C:\"
If Ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
Mod2 = Ofd.FileName
MsgBox(Mod2)
End If
End Sub
Lol VB2008 Code