Get Long MinValue
Module Example Public Sub Main() Dim sourceNumber As Long = Long.MinValue End Sub End Module