VBS-Script verursacht eine Fehlermeldung!

Skript:        C:\Daten\birthday.vbs
Zeile:          36
Zeichen:      7
Fehler:        Typen unverträglich: 'DateValue'  
Code:         800A000D
Quelle:        Laufzeitfehler in Microsoft VBScript

Dim objFileSystem
Dim objFile
Dim objTextStream
Dim szConfigFile
Dim szBirthday, szName, szThisYear, szNextYear, szComparisonDate
Dim szMessage
Dim iTime
Dim iDifference

' Standardwerte für einige Variablen  
szConfigFile = "C:\DATEN\BIRTHDAY.INI"  
iTime        = 5

szMessage    = ""  
szThisYear   = CStr(Year(date))
szNextYear   = CStr(Year(date)+1)

Set objFileSystem = CreateObject("Scripting.FileSystemObject")  

' Config-Datei ermitteln, ...  
If objFileSystem.FileExists(szConfigFile) Then

   ' ... öffnen...  
   Set objFile = objFileSystem.OpenTextFile(szConfigFile)

   ' ... und zeilenweise abarbeiten  
   Do until objFile.atEndOfStream
   
      ' Geburtstag und Name des Geburtstagskindes lesen  
      szBirthday = objFile.read(6)
      szName = objFile.readLine

      ' Wieviele Tage sind es noch bis zum nächsten Geburtstag?  
      szComparisonDate = szBirthday & szThisYear
      iDifference = DateDiff("y", date, DateValue(szComparisonDate))  
      
      ' Falls der nächste Geburtstag allerdings erst im nächsten Jahr liegt  
      if (CInt(iDifference) < 0) then
         szComparisonDate = szBirthday & szNextYear
         iDifference = DateDiff("y", date, DateValue(szComparisonDate))     
      end if

      ' Wenn die Anzahl der Tage innerhalb der Frist liegt  
      if (CInt(iDifference) <= iTime) then
         szMessage = szMessage & szName & " am " & szComparisonDate & " - noch " & iDifference & " Tage" & Chr(10)    
      end if
      
   Loop
   objFile.close
   
else
   MsgBox "Die Config-Datei " & szConfigFile & " ist nicht vorhanden!", vbCritical, "Fehler"  
end if

' Falls vorhaben, Liste der nächsten Geburtstage ausgeben  
If szMessage<>"" Then  
   MsgBox szMessage, vbInformation, "Die nächsten Geburtstage"  
End If

01.01. ich 
02.02. du