Public Sub ExampleOfOpenFile()
Dim vFilename As Variant
    vFilename = Application.GetOpenFilename("")
    If vFilename = False Then Exit Sub
    Call Primer1(CStr(vFilename))
End Sub
Sub Primer1(InputVarible As String)
    MsgBox "Нолученное значение переменной " & vbLf & InputVarible
End Sub

Sub test() 
    Dim FileName As Variant, i As Long 
    FileName = Application.GetOpenFilename(FileFilter:="Excel Files, *.xls", MultiSelect:=True) 
    If Not IsArray(FileName) Then Exit Sub 
    For i =  1  To UBound(FileName) 
        MsgBox FileName(i)
        ' Workbooks.Open Filename:=FileName(i) 
    Next i 
End Sub