>>9
Open TextFilePath For Input As #1
Do Until EOF(1)
Line Input #1, Temp
If ReadData="" Then
ReadData = Temp
Else
ReadData = ReadData & Temp & Chr(13) & Chr(10)
EndIf
Loop
Close #1
Text1.Text = ReadData