This will solve your problem....

Code:
    Dim arr() As String
    Dim strTmp As String
    
    Open "Testfile.txt" For Input As #1
    While Not EOF(1)
        Line Input #1, strTmp
        arr = Split(strTmp, "::")
        
        'Do something about arr array here....
        '......
        
    Loop
    Close #1