[Resolvido] Como calcular o ArcoCosseno em VB-2019 envolvendo números complexos?

Boa noite companheiros...

Estou tendo problemas, quando tento converter um número complexo de RETANGULAR para POLAR em Visual Basic - 2019.

Estou fazendo assim:

    Private Sub CalculaPolar(ByVal Real As Double, ByVal Imag As Double)



        CModu = Sqrt(Real ^ 2 + Imag ^ 2)

        CAngu = Acos((Real / CModu) * ((Imag = 0) + Sign(Imag)))



    End Sub

Desculpem a minha ignorância, mas estou tentando fazer de uma maneira para ao invés de aparecer o valor do ângulo 1º Complexo 0,785398163397448 mostrar 45º
Tem como fazer isso ?

EDITADO: Resolvido. Foi só colocar a seguinte instrução.

    Private Sub CalculaPolar(ByVal Real As Double, ByVal Imag As Double)



        CModu = Sqrt(Real ^ 2 + Imag ^ 2)

        CAngu = Acos((Real / CModu) * ((Imag = 0) + Sign(Imag)))

        CAngu1 = (180 * CAngu) / PI



    End Sub

Grato pela atenção de todos.