Если X, Y, Z упорядочены по возрастанию, то удвоить каждое из них, иначе заменить числа их модулями - VB

Sub vv(ParamArray a())
    'если аргументы упорядочены по возрастанию, удваивает их
    'иначе заменяет их модулями
Dim i&
For i = LBound(a) + 1 To UBound(a)
    If a(i - 1) > a(i) Then GoTo mdl
Next
'если дошли сюда, значит упорядочены по возрастанию
For i = LBound(a) To UBound(a)
    a(i) = a(i) * 2
Next
Exit Sub
mdl:
For i = LBound(a) To UBound(a)
    a(i) = Abs(a(i))
Next
 
End Sub
 
Sub test()
Dim X!, Y#, Z&
X = -9
Y = -5
Z = -5
Debug.Print X, Y, Z
vv X, Y, Z
Debug.Print X, Y, Z
Z = -12
Debug.Print X, Y, Z
vv X, Y, Z
Debug.Print X, Y, Z
 
End Sub