You need to deal with Term prior to getting to this point in your code.
This should give an idea...
Code:
Sub Testing()
Dim Term As Variant
'don't know how your variable is being assigned so...
Term = " "
'check if its a date
If Not IsDate(Term) Then
'assign a date
Term = DateSerial(1900, 1, 1)
End If
'message box to show what Term currently is
MsgBox Term
End Sub