Private Sub Command3_Click()
On Error GoTo keinpfad
With CommonDialog1
 
 
    .Filter = "bull-Datei (*.bull)|*.bull"
    .ShowOpen
 
    If Err = 0 Then
      Text2.Text = .FileName
 
        DateiName = Text2.Text
        DateiNr = FreeFile
 
        Open DateiName For Input As DateiNr
            Do While Not EOF(DateiNr)
                Line Input #DateiNr, strLine
                Text1.Text = Text1.Text & strLine
            Loop
        Close DateiNr
 
 
 End If
 End With
 Unload Me
 Exit Sub
keinpfad:
MsgBox "Die Datei ist Ungültig.Oder es befindet sich keine Diskette im" & _
  "Laufwerk", vbCritical, "testprojekt"
Exit Sub
End Sub