Dim strVlez As String
         Open "C:\zipTest\data.txt" For Input As 1
             Do
           
                Line Input #1, strVlez
                MsgBox strVlez
            Loop Until EOF(1)
            Close 1