Swap Problem Code

Private Sub cmdSwap_Click()

    Dim strResponse1 As String: Dim strResponse2 As String

    Dim X As Integer: Dim Y As Integer

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

        "1st Integer")

    X = Val(strResponse1)

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

       "2nd Integer")

    Y = Val(strResponse2)

    Call swapProcedure(X, Y)

    MsgBox "Swapped Values are " & Str(X) & Str(Y), vbOKOnly, _

      "Values Switched “

End Sub

Public Sub swapProcedure(X As Integer, Y As Integer)

   Dim temp As Integer

   temp = X

   X = Y

   Y = temp

End Sub