Dim myfile As String
Dim Contenuto As String
Dim f, i As Integer
Dim strArr() As String

f = FreeFile
myfile = "C:\Test.TXT"
Open myfile For Input As f
Do While Not EOF(f)
Line Input #f, Contenuto
strArr = Split(Contenuto, ";")
For i = LBound(strArray) To UBound(strArray)
'qui inserisci il codice per gestire l'array
:gren:
Next i
Loop
Close #f