Hur gör man så att under Private Sub Form_Load() så blir text1.text det som står i filen C:/Text.txt?

Språk Vb6

Någonting i stil med detta skulle nog fungera :

Public Sub Form_Load()
Dim mFileNumber As Long
Dim mLine As String
Dim mText As String

mFileNumber=FreeFile()

Open "C:\text.txt" For Input As #mFileNumber
Do While Not Eof(mFileNumber)
Line Input #mFileNumber,mLine
mText = mText + mLine + vbCrLf
Loop
Close #mFileNumber

Text1.Text=mText
End Sub

Det funkade. Tack.