so chia het cho 3

Private Sub Command1_Click()
Dim n As Long
n = Text1.Text
If n Mod 3 = 0 Then
MsgBox n & " chia het cho 3"
ElseIf n Mod 3 = 1 Then
MsgBox n & " chia cho 3 du 1"
ElseIf n Mod 3 = 2 Then
MsgBox n & " chia cho 3 du 2"
End If
End Sub

Private Sub Command2_Click()
Form5.Hide
Form2.Show
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub