Private Sub datecheck(ByVal day As Integer)

        If day = Date.Today.Day Then
            If Date.Today.Month = 12 Then
                Check = True
            Else
                Check = False
            End If
        Else
            Check = False
        End If

    End Sub

End Class