ファイルを開くダイアログで選択したファイルのフルパスを取得する
Sub Sample23()
Dim F As Variant
'jpg形式のファイルをダイアログで選択させる
F = Application.GetOpenFilename("画像ファイル (*.jpg), *.jpg")
'キャンセルされた場合、終了
If F = False Then Exit Sub
'そのファイルヘのパスをダイアログで表示します。
MsgBox F
End Sub