Larger Number Problem Code

Private Sub cmdLargerNumber_Click()

    Dim strResponse1 As String: Dim strResponse2 As String

    Dim intLargerIntegerAnswer As Integer

    strResponse1 = InputBox("Please Enter 1st Integer Number", _

       "1st Integer")

    strResponse2 = InputBox("Please Enter 2nd Integer Number", _

       "2nd Integer")

    intLargerIntegerAnswer = largerInteger(Val(strResponse1), _

        Val(strResponse2))

    MsgBox "Larger Integer is " & Str(intLargerIntegerAnswer), _

       vbOKOnly, "Bigger Number")

End Sub

Public Function largerInteger(intA As Integer, intB As Integer) As Integer

    If (intA > intB) Then

        largerInteger = intA

    Else

       largerInteger = intB

   End If

End Function