Kiem tra số chẵn số lẻ

" de bai " kiem tra so la so  chan hay so le

Private Sub Command1_Click()
Dim n As Integer
n = Text1.Text
If n Mod 2 = 1 Then
MsgBox ("so " & Text1.Text & " la so le ")
Text1.Text = " "
Else
MsgBox ("so " & Text1.Text & "  la so chan ")
Text1.Text = " "
End If
End Sub