Visual Basic - Funcion par o impar

necesito hacer una funcion o procedimiento q me diga si un numero es impar o par... gracias..

Puedes hacer esto, claro si lo capturas en textbox.
Private Sub Command1_Click()
If Text1 <> "" Then
If CInt(Text1) Mod 2 = 0 Then
MsgBox "Numero de Par: " & Text1, vbInformation
Else
MsgBox "Numero de ImPar: " & Text1, vbInformation
End If
End If
End Sub