Dim fs As Object, fVerz As Object, fDatei As Object, l%
    Dim fdateien As Object, strDat$, strDat2$, Ztest As Boolean
    Dim letztesUpdate, upd As Boolean, AktUpDatei$
    Dim Pfad$
 
 
    upd = False
    Set fs = CreateObject("scripting.FileSystemObject")
    strDat = [BLZFILE].Value        'Pfad, in dem die Updatedateien liegen
    l = Len(strDat)
    strDat = Left(strDat, l - 8)    'schneidet Datei weg
    strDatUP = strDat
    Set fVerz = fs.getFolder(strDat)
    Set fdateien = fVerz.Files
    letztesUpdate = [UpdDatei].Value  'hier ist der Zeitstempel des letzten 
    ' Updates hinterlegt
    letztesUpdate = str(letztesUpdate)
    letztesUpdate = Trim(letztesUpdate) 'Umwandlung in Stringkette
    For Each fDatei In fdateien
        If InStr(fDatei, "") > 0 Then   'liest nacheinander Dateien ein
            strDat = fDatei.Name
            strDat2 = Left(strDat, 12)  'schneidet nach 12 Zeichen ab
            Ztest = IsNumeric(strDat2)  'testet, ob Zahlen
            If Ztest = True Then
                strDat2 = CDbl(strDat2)
                If letztesUpdate < strDat2 Then upd = True: Adminkennung = Mid( _
                  strDat, 13, 1):                 AktUpDatei = fDatei 'es wurde 
                ' ein neues Update gefunden
            End If
        End If
    Next fDatei
    'wenn upd auf True steht, wurde ein neues Update gefunden