Swapping Values (ByRef)

Sub Main
    Dim x as Integer
    Dim y as Integer

    x = 10
    y = 57

    Swap x, y
    MsgBox " x = " & x & "y =" & y
End Sub

Sub swap (ByRef a As integer, ByRef b As Integer)
    Dim temp As Integer

    tmp = a
    a = b
    b = temp

End Sub