Imports System

Public Module Module1

    Public Sub Main()

​

        ' Works - output is nothing

        Dim myNumber1 as Integer? = Nothing

        Console.WriteLine("The value of myNumber1 is: {0}", myNumber1)

        ' Does not work -  implicitly casts Nothing as Integer and returns 0

        Dim myNumber2 as Integer? = If(True, Nothing, 999)

        Console.WriteLine("The value of myNumber2 is: {0}", myNumber2)

        ' Works - Workaround from bad inference in myNumber2 

        Dim myNumber3 as Integer? = If(True, DirectCast(Nothing, Integer?), 999)

        Console.WriteLine("The value of myNumber3 is: {0}", myNumber3)

    End Sub

End Module