Try:

vb Code:
  1. Dim sFile As String
  2.     sFile = ShowOpenDialog(App.Path, "All Files|*.*", "*.*")
  3.    
  4.     If sFile <> "" Then
  5.  'Code here
  6.     End If