Private Type tagCOMPLEXAlg
Re as Integer 
Img as Intger ' Ну или тот тип который тебе нужен
End Type

Private Type tagCOMPLEXTri
Q as Integer 
F as Intger ' Ну или тот тип который тебе нужен
End Type

Private Complex As tagComplexAlg
Private Sub ComplexSub(ByVal a as Complex, ByVal b as Complex, ByRef res as Complex)
res.Re = a.Re + b.Re
res.Im = a.Im + b.Im
End Sub

Private algComplex As tagComplexAlg
Private triComplex as tagComplexTri
Private Sub TriComv(ByVal a as algComplex, ByRef res as triComplex)
res.Q = Sqrt(a.Re^ 2  + a.Im^ 2 )
res.Im = ... ' Блин, не вспоминается... :(
' Зная Q и F дальше их можна смело подставлять в q(cos(f)+(-)isin(f))
End Sub