Даны два числа. Меньшее из этих двух чисел заменить их суммой, а большее удвоенной разностью - VB

Option Explicit
 
Private Sub Command1_Click()
Dim a As Double, b As Double
    a = InputBox("a = ", , 8)
    b = InputBox("b = ", , 6)
    Print "a = " & a, "b = " & b
    Cha a, b
    Print "a = " & a, "b = " & b
End Sub
 
 
Sub Cha(ByRef a As Double, ByRef b As Double)
    Dim temp As Double
    temp = a + b
    If a < b Then
        b = 2 * (a - b)
        a = temp
    Else
        a = 2 * (a - b)
        b = temp
    End If
End Sub