Dim FN as Integer
Dim FS as Long
Dim Abschnitte() as String
 
FN = FreeFile
Open dateiName For Input As FN
FS = LOF(FN)
Text1.Text = Input(FS, FN)
Close FN
 
Abschnitte = Split(Text1.Text, ".") ' Hier ist '.' das Trennzeichen

UBound(Abschnitte)