Datevalue funktioniert nur bei 2 stelligen Monaten

Sub Test()
Dim Tdate As Date
Dim Adate As Date
Dim Delta As Integer
Dim strDay As String
Dim strMonth As String
Dim strYear As String
strYear = T5 ' z.B.: 2008
strMonth = T4 ' z.B.: 11
strDay = 31
Adate = DateValue(Date)
Tdate = DateValue(strDay & "." & strMonth & "." & strYear)
Delta = Tdate - Adate
MsgBox Delta
End Sub

*****************************************
Der Code funktioniert prima, so lange strMonth > 9 (also zweistellig) ist.
Sobald der Monat einstellig wird, bekomme ich 'nen Laufzeitfehler weil der Varriablentyp nicht stimmt.(Tdate)
Ich bastel jetzt schon seit 2 Stunden an den Varriablen rum, kann aber meinen Denkfehler nicht finden.
Hat jemand ne Idee, wo das Problem liegt?
Vielen Dank im Voraus
Niels