Как в VB работает GetOpenFileName?

Формулировка задачи:

Нужен фрагмент кода, чтобы в переменной сохранить имя файла, выбранного пользователем в стандартном диалоге 'Открыть'. Так, как делал раньше в Excel'e в VB не получается (. Please, HELP!

Решение задачи: «Как в VB работает GetOpenFileName?»

textual
                            Листинг программы 
                        
                            fileToOpen = Application _
    .GetOpenFilename('WETTER-Angaben-Dateien (*.xls;*.dat),*.xls', , myCaption)
 
'False получается, если пользователь нажал Отмена или иначе закрыл диалог, не выбрав файла
 
If fileToOpen = False Then
  a = MsgBox('Sie haben keine Input-Tabelle bestimmt.' & Chr(13) & Chr(13) & 'Die Fortsetzung ist unmöglich.', 16)
   
   vorgang_Abgebrochen = True
   
   GoTo finish:
End If