Trouble With Text Files

[ThaRubby]

Ok i got great help earlier but having a problem o.0

Private Sub Form_Load()
Dim sTemp As String
Dim sTotalString As String
Shell "C:\File.bat > C:\Irc.txt"
Open "C:\Irc.txt" For Input As #1
Do While EOF(1) = False
Line Input #1, sTemp
sTotalString = sTotalString & sTemp
Text1.Text = sTotalString
Loop
End Sub


The First line in the file its opening its blank so i dont think its reading that because of it...The only way i can get output into the textbox is if i click the button twice..