Dim i As Integer
        Dim ctemp As String
 
        Try
            frmBerichte.cmbAuswahl.Items.Clear()        'Vorhandene Einträge 
            ' löschen
            For i = 1 To 5
                ctemp = "verzeichnis" + i.ToString.Trim + "/daten/daten.dat"
 
                FileOpen(1, ctemp, OpenMode.Input, OpenAccess.Read)
                Input(1, ctemp)
                FileClose()
                frmBerichte.cmbAuswahl.Items.Add(Str(i) + " " + ctemp)
            Next i
 
        Catch When Err.Number = 53
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler " & Err.Number & "" & _
              "in SUB Benutzernamenlesen")
        End Try