WAP to find the greater value

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = InputBox("Enter first value", "first value")
b = InputBox("Enter second value", "second value")
If a > b Then
MsgBox ("First value is greater")
Else
MsgBox ("Second value is greater")
End If
End Sub



Posted by: Wasim Javed