Imports System

Public Module Module1

    Public Sub Main()

        Dim NextCreditReviewDate as Date? = Nothing

        If NextCreditReviewDate?.Year > 1 Then

            Console.WriteLine("Hello World")

        End If

    End Sub

End Module