skrive ind i TextBox via tekstdokument

jeg har tænkt mig at lave sådan en side, med opdateringer til mit lille program... men jeg kan ik få det til at virke.... har flg. kode:
---
Private Sub Form_Load()
Dim strVariable As String
Text1.Text = ""
Open "C:\Documents and Settings\MyUser\Skrivebord\Programmering\VB\Eraser\" & _
    "versions.txt" For Input As #1
Line Input #1, strVariable
Do Until (EOF(1) = True)
Text1.Text = Text1.Text & vbNewLine & strVariable & vbNewLine
Line Input #1, strVariable
Loop
End Sub
---
Og jeg har oz prøvet med en DataSource, men der var der så heller ik noget held i.... "any help appreciated" :D

//WebPsycho