Dim MyDate As Date
Sub asdfasdf()
MyDate = "10/09/2005"
If Date - MyDate < 182 Then '182 days - substitute your own 6 month value
MsgBox ("The date is within the last six months.")
Else
MsgBox ("The date is older than six months from today.")
End If
End Sub