Imports System
Public Class Test
Shared Function IsBig(ByVal n As Integer) As Boolean
Return n >= 5000000
End Function
Public Shared Sub Main()
Dim n As Integer = 87645321
If IsBig(n) Then
Console.WriteLine("IsBig")
End If
End Sub
End Class
' run:
'
' IsBig
'