Public Function newxvalue(current As Double, angle As Double, distance As Double) As Double
    newxvalue = current + Sgn(angle) * distance
End Function

Public Function newyvalue(current As Double, angle As Double, distance As Double) As Double
    newyvalue = current + Cos(angle) * distance
End Function