Private Function Resultant(ByVal Num1 As Double, ByVal Num2 As Double, ByVal Num3 As Double) As Integer Dim Res As Integer = Nothing Dim a, b As Double a = Num1 ^ 2 b = Num2