Почему не работает цикл???

[kobolok]

Dim F As Long
Dim MyText As String
Dim AllMyText As String

Private Sub Command1_Click()
Text5.Text = ""
Text1.Text = "Radmin.exe"
Text3.Text = ":4899"
Text2.Text = "/connect:"


F = FreeFile
Open App.Path & "\Справка.txt" For Input As #F
Do Until EOF(F)
Line Input #F, MyText
Text5.Text = Text1.Text & Text2.Text & MyText & Text3.Text & vbCrLf
Loop
Close #F

[kobolok]

Сорри,всё сам понял,уже работает