Even or Odd Problem Code

Private Sub cmdEvenOdd_Click()

    Dim strResponse As String: Dim blnAnswer As Boolean

    strResponse = InputBox("Please Enter An Integer Number", _

      "Integer Data")

    blnAnswer = oddInteger(Val(strResponse))

    If blnAnswer Then

        MsgBox "Integer is Odd", vbOKOnly, "Odd Number"

    Else

        MsgBox "Integer is Even", vbOKOnly, "Even Number“

    End If

End Sub

Public Function oddInteger(int1 As Integer) As Boolean

    If (int1 Mod 2 = 1) Then

       oddInteger = True

    Else

       oddInteger = False

    End If

End Function