Type Anweisung

Wie kann ich die Daten die ich in die Type Anweisung eingelesen habe wieder ausgeben ?.

Private Type Datei
Datein As String
Dat As Date
End Type
Dim test, anzahl_dateien, zahler, i As Variant
Dim Datei(0 To 100) As Variant
Dim Differenz As Integer

'Dateien im Verzeichniss für die Type Anweisung einlesen

sFile = Dir(Pfad)
For i = 1 To anzahl_dateien
Datei(i) = sFile
sFile = Dir()
Next i

'Daten ausgeben?
'z.B.
Test=datei(i).datein.dat
'funktioniert nicht

Hat jemand eine Idee ?