Sub GetImportFileName2()
    Dim Filt As String
    Dim FilterIndex As Integer
    Dim FileName As Variant
    Dim Title As String
    Dim i As Integer
    Dim Msg As String
    Filt = "Text Files (*.txt),*.txt," & _
            "Lotus Files (*.prn),*.prn," & _
            "Comma Separated Files (*.csv),*.csv," & _
            "ASCII Files (*.asc),*.asc," & _
            "All Files (*.*),*.*"
    FilterIndex = 3
    Title = "выберите файл"
    FileName = Application.GetOpenFilename _
        (FileFilter:=Filt, _
         FilterIndex:=FilterIndex, _
         Title:=Title, _
         MultiSelect:=True)

    If Not IsArray(FileName) Then
        MsgBox "файл не выбран."
        Exit Sub
    End If 

    For i = LBound(FileName) To UBound(FileName)
        Msg = Msg & FileName(i) & vbCrLf
    Next i
    MsgBox "было выбрано:" & vbCrLf & Msg
End Sub

Private Sub CommandButton1_Click()
For i = 1 To 4
Image(i - 1).Picture = LoadPicture("c:\image\MISC0" & i & ".ico")
Next i
End Sub