Function queryIfDate_en() As Boolean
    Dim seleText As String
    Dim ifDate As Boolean
    Dim currentYear As String
    Dim likeStr As String
    currentYear = Year(Now)
    seleText = "April. 30, 2008"
    likeStr = "*" + currentYear
    If seleText Like likeStr = True Then
        queryIfDate_en = True
    Else
        queryIfDate_en = False
    End If
End Function
很简单的一个函数,但是为什总是返回false呢。请指教