Private Sub Command2_Click()
 
'Einlese-Prozess für Glas links
 
Dim eingabe As String
'Starte Einlese-Prozess
    eingabe = InputBox("Bitte lesen Sie mit dem Scanner die Dateinummer ein")
        List2.Clear
'Ende Einlese-Prozess
 
'Entsprechende Datei öffnen mit der Nummer die sich In der Variablen eingabe befindet
 
Open "C:\xml\" & eingabe & ".txt" For Input As #1 ' Datei öffnen.
On Error GoTo fehler
fehler:
Beep
Picture3.Visible = True
If MsgBox("Datei nicht gefunden", vbExclamation + vbOKOnly) = vbOK Then
List2.Clear
End If
 
'Wenn öffnen der Datei erfolgreich In Liste eintragen
Picture2.Visible = True
List2.AddItem "----------" & " " & Now & " " & "----------"
List2.AddItem "DATEI ÖFFNEN ERFOLGREICH"
List2.AddItem eingabe
List2.AddItem "-------------------------------"
 
'Fehlerüberprüfung
If List2.ListCount = 0 Then
Beep
Picture3.Visible = True
MsgBox "Fehler beim öffnen der Datei", vbExclamation + vbOKOnly
Exit Sub
End If
 
Dim Textzeile
Do While Not EOF(1) ' Schleife bis Dateiende.
Line Input #1, Textzeile ' Zeile In Variable einlesen.
Debug.Print Textzeile ' Ausgabe im Direktfenster.
Loop
Close #1 ' Datei schließen.
End Sub