Data Types VB.Net

Class Sample
   Public Shared Sub Main()
      Dim xDecimal1 As [Decimal] = -7D
      Console.WriteLine(xDecimal1)
      Console.WriteLine(Test(Math.Sign(xDecimal1)))
   End Sub 
   Public Shared Function Test([compare] As Integer) As [String]
      If [compare] = 0 Then
         Return "equal to"
      ElseIf [compare] < 0 Then
         Return "less than"
      Else
         Return "greater than"
      End If
   End Function
End Class