Dateinamen aus ListBox an Macro übergeben

Sub Dateiliste()
Dim Verzeichnis() As String
Dim Anzahl As Integer
Dim I As Integer
Dim strVerzeichnis As String
Dim strDatei As String
Dim StrTyp As String
Dim Dateiname As String
Anzahl = 0
' Liste erstellen
strVerzeichnis = "A:\"
StrTyp = "*.*"
Dateiname = Dir(strVerzeichnis & StrTyp)
I = 3
Do While Dateiname <> ""
Anzahl = Anzahl + 1
ReDim Preserve Verzeichnis(1 To Anzahl)
Verzeichnis(Anzahl) = Dateiname
Dateiname = Dir
Loop
Sort_A_Z Verzeichnis, LBound(Verzeichnis), UBound(Verzeichnis)
For I = Anzahl To 1 Step -1
ListBox1.AddItem Verzeichnis(I)
Next I
End Sub

Wie kann ich nun den angewählten Dateinamen an mein Macro "Import" übergeben ?

Gruß
Rainer