well the proble might lie in either ur if statement or at the end

If Left$(strdate, 3) = "/" Then
Select Case Mid(Text1.Text, 1, 2)
Case "10"
str2 = "October"
Case "11"
str2 = "November"
Case "12"
str2 = "December"
End Select
strmonth = str2
End If
MsgBox strmonth

that last line is saying that if the months don't fall between oct or dec then give a message box of strmonth ...
but no where on ur code is strmonth set to anything ...
maybe u meant to put: msgbox str2 ???