Private Sub Form_Load()
 
    Dim i As Long
    Dim F As Integer
    Dim sChar As String
    Dim sInhalt As String
    Dim sFilename As String
        sFilename = "C:\Datei.txt"
 
    If Dir$(sFilename, vbNormal) <> "" Then
        F = FreeFile
        Open sFilename For Binary As #F
            sInhalt = Space$(LOF(F))
            Get #F, , sInhalt
        Close #F
    End If
 
    For i = 1 To Len(sInhalt)
 
        ' Jetzt ist das Zeichen in der Variable sChar
        sChar = Mid(sInhalt, i, 1)
 
        ' und hier wird pro Zeile ein Zeichen in die Textbox geschrieben
         Text1.Text = Text1.Text & sChar & vbCrLf
 
    Next i
 
End Sub

Mit freundlichen Gr??en,
Andy G.