WorksheetFunction.ImReal (Excel)

Returns the real coefficient of a complex number in x + yi or x + yj text format.

Use the Complex method to convert real and imaginary coefficients into a complex number.

ImReal (Arg1)

Arg1: Inumber - a complex number for which you want the real coefficient.

Dim dblImReal As Double
dblImReal = WorksheetFunction.ImReal(Arg1:=)