ダイアログボックスで指定したファイルのパスを返す

ダイアログボックスで指定したファイルの絶対パスを取得して返す関数。

使用例

Sub Main()
    Dim filePath As String
    filePath = DecideFile()
    If filePath = "" Then Exit Sub
End Sub