On Error

[kalletronic]

Hi, danke für die Antwort, Klappt wunderbar!!
Jetzt hab ich allerdings noch ei Problem mit folgendem Code:

Private Sub Öffnen_Click()
Dim Koordinaten As String
Dim Dateilänge, x As Integer
    Fehler = "dateiöffnen"
    On Error GoTo ERrhandler
    
    x = 0
    DateiNr = FreeFile
    Open dateiname For Input As DateiNr
    Dateilänge = LOF(DateiNr)
    Do Until Koordinaten = Empty
        Input #DateiNr, Koordinaten
        
        Hauptmodul.Text1.Text = Hauptmodul.Text1.Text & Koordinaten & vbCrLf
        x = x + 1
    Loop
    Close DateiNr
    Exit Sub
ERrhandler:
    Fehlerbehandlung (Fehler)
End Sub

da kommt immer die Fehlermeldung "Einlesen hinter Dateiende". kannst du mir dabei auch vlt. helfen?