Dim fstr As String Open "path to file" For Input As #1 Do While Not EOF(1) Line Input #1, fstr MsgBox fstr Loop Close #1