Dim sVersion As String ' komplette Versionsnummer
  Dim nMajor As Long     ' Hauptversionsnummer
  Dim nMinor As Long     ' Subversionsnummer
  Dim nRevision as Long ' Die soll auch überprüft werden
 
' Ggf. abschließenden Zeilenumbruch entfernen
      If InStr(sVersion, Chr$(13)) > 0 Then _
        sVersion = Left$(sVersion, InStr(sVersion, Chr$(13)) - 1)
 
      ' Versionsteile extrahieren
      nMajor = Val(Left$(sVersion, InStr(sVersion, ".") - 1))
      nMinor = Val(Mid$(sVersion, InStr(sVersion, ".") + 1))
 
      ' Prüfen! ... hier fehlt mir die Revision
      isCurrentVersion = IIf((App.Major < nMajor) Or _
        (App.Major = nMajor And App.Minor < nMinor), 0, 1)
    End If