Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B врешит в VBA

Sub swap(ByRef A, ByRef B)  If A > B Then    C = A    A = B    B = C  End IfEnd Sub
Sub test()  A = 12.5  B = 15  Call swap(A, B)  MsgBox "A= " + Str(A)  MsgBox "B= " + Str(B)    A = 100  B = 12  Call swap(A, B)  MsgBox "A= " + Str(A)  MsgBox "B= " + Str(B)  End Sub