Private Sub cmdLaden_Click()
lstSpieler.Clear
On Error GoTo ErrHandler
With CmDialog1
    .CancelError = True
    .Filter = "dat-Dateien(*.dat)|*.dat"
    .Flags = &H1000&
    .Action = 1
    .Flags = cdlOFNPathMustExist
Nixwieweg:
Exit Sub
ErrHandler:
MsgBox ("Abbruch oder Laden misslungen, Daten überprüfen")
Resume Nixwieweg
Open CmDialog1.FileName For Input As Dateinr
Do
Input #Dateinr, eingabe
lstSpieler.AddItem eingabe
Loop Until EOF(Dateinr)
Close Dateinr
Call cmdEnable_Click
txtVorname.SetFocus
End With
End Sub