Te entendi mal creo, perdon por meterme donde no debo xD
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private Sub Command1_Click()
Dim num As Integer, num2 As Integer
num = CInt(Text1.Text)
num2 = num / 2
If num = num2 * 2 Then
MsgBox "bien"
Else
MsgBox "mal"
End If
End Sub