try this code i hope it will work
Public Class COmplexNumber
Public realNo As Integer
Public imag As Integer
Public Function calctn(C1 As COmplexNumber, C2 As COmplexNumber,ByVal optr as string) As COmplexNumber
Dim result As New COmplexNumber
if (optr ="+") then
result.realNo = (C1.realNo + C2.realNo)
result.imag = (C1.imag + C2.imag)
else if (optr ="-") then
result.realNo = (C1.realNo - C2.realNo)
result.imag = (C1.imag - C2.imag)
else if (optr ="*") then
result.realNo = (C1.realNo * C2.realNo)
result.imag = (C1.imag * C2.imag)
else if (optr ="/") then
result.realNo = (C1.realNo / C2.realNo)
result.imag = (C1.imag / C2.imag)
end if
calctn = result
End Function
End Class