Try
Dim fd As FileDialog
fd.FilePath = File.DirRootExternal
Dim sf As Object = fd.ShowAsync("Select file", "Open", "Cancel", "", Null, False)
Wait For (sf) Dialog_Result(Result As Int)
If Result = DialogResponse.POSITIVE Then
'Do stuff with the file here
End If
Catch
Log ("Error opening file chooser")
End Try