Zoynels,спасибо за Ваш вариант.
Требовался следующий код:
Sub insertFromFile()
Dim fNumber As Integer
Dim DataLine As String
fNumber = FreeFile()
Open "phrases.txt" For Input As #fNumber
While Not EOF(fNumber)
Line Input #fNumber, DataLine
MsgBox DataLine
Wend
End Sub
Требовался следующий код:
Sub insertFromFile()
Dim fNumber As Integer
Dim DataLine As String
fNumber = FreeFile()
Open "phrases.txt" For Input As #fNumber
While Not EOF(fNumber)
Line Input #fNumber, DataLine
MsgBox DataLine
Wend
End Sub