VB numeri pari e negativi

[biste]

per determinare se il numero è pari puoi usare l'operatore Mod, che ti ritorna il resto della divisione tra 2 numeri

If Val(Text2.Text) Mod 2 = 0 Then
    MsgBox "numero pari"
Else
    MsgBox "Numero dispari"
End If

HTH