Даны действительные числа X, Y. Если X, Y. – отрицательны, то каждое значение заменить его модулем;если отрицательно только одно из них, то оба значен - VB

Private Sub Command1_Click()
Dim s As Double
Dim a As Double
Dim b As Double
Dim c As Double
Cls
a = InputBox("Введите 1 число")
b = InputBox("Введите 2 число")
 
If a < 0 And b < 0 Then
    a = Abs(a)
    b = Abs(b)
End If
If a < 0 Or b < 0 Then
    a = a + 0.5
    b = b + 0.5
End If
If a >= 0 And b >= 0 And a > 0.5 And a < 2 And b > 0.5 And b < 2 Then
    a = a / 10
    b = b / 10
End If
Print a, b
End Sub