Text1.Text = Mid$(strText, 2, Len(strText) - 4) 
Text2.Text = Mid$(strText, 2, Len(strText) - 4) 
Text3.Text = Mid$(strText, 2, Len(strText) - 4) 
Text4.Text = Mid$(strText, 2, Len(strText) - 4) 

Private Sub cmdOpen_Click()
'TextBox-Inhalt aus Datei einlesen
Dim FN As Integer
Dim strText As String
Dim i As Integer
 
On Error GoTo err_Log
 
FN = FreeFile()
Open m_strFileName For Input As #FN
For i = 0 To 3
    Line Input #1, strText
    Text1(i).Text = strText 
Next i
 
Close #FN
Exit Sub
 
err_Log:
MsgBox "Die Datei " & m_strFileName & " wurde nicht gefunden !", _
vbOKOnly + vbInformation, Me.Caption
End Sub

Private Sub cmdOpen_Click()
'TextBox-Inhalt aus Datei einlesen
Dim FN As Integer
Dim strText As String
 
On Error GoTo err_Log
 
FN = FreeFile()
Open m_strFileName For Input As #FN
strText = Input(LOF(FN), 1)
Text1.Text = Mid(strText, 2, 8)
Text2.Text = Mid(strText, 15, 8)
Text3.Text = Mid(strText, 28, 8)
Text4.Text = Mid(strText, 41, 8)
 
Close #FN
Exit Sub
 
err_Log:
MsgBox "Die Datei " & m_strFileName & " wurde nicht gefunden !", _
vbOKOnly + vbInformation, Me.Caption
End Sub