Dim hFile As Long
    Dim strLine As String
    Dim avarData() As Variant
    Dim intI As Integer
    Dim intJ As Integer
    
    hFile = FreeFile
    
    Open "D:\1\Test.txt" For Input Access Read Shared As hFile
    
    Do Until EOF(hFile)
        ReDim Preserve avarData(intI)
        Line Input #hFile, strLine
        avarData(intI) = Split(Mid(strLine,  1 , Len(strLine) -  1 ), ";")
        intI = intI +  1 
    Loop

    For intI = LBound(avarData) To UBound(avarData)
        For intJ = LBound(avarData(intI)) To UBound(avarData(intI))
            Debug.Print avarData(intI)(intJ); " ";
        Next intJ
        Debug.Print ""
    Next intI
        
    Close hFile
End Sub