Imports System

Public Module Module1

    Public Sub Main()

        Dim numero As Integer

​

numero = 5

If (numero Mod 2) <> 0 Then

    'El número es impar.

Else

    'El número es par.

End If

    End Sub

End Module