Design form :-
1. Select 2 text box
2. Select 1 command button..
Code :-
Private sub command1_click()
Dim a,b As Integer
a=val(Text1.Text)
b=val(Text2.Text)
If a>b
MsgBox "A is greater then B"
Else
MsgBox "B is greatee then A"
End If
End Sub
