try to develop user-define function named abc(),due to the error "procedure too large" , i was forced to split the code and now the function return 0 instead expected result "3" 

Function abc(op1 As Double, op2 As Double, _
Figure_1 As Long, Figure_2 As Long)

Dim p1 As Variant, p2 As Variant, p As Variant

op1 = 100 'input for user define function
op2 = 100 'input for user define function
Figure_1 = 1 'input for user define function
Figure_2 = 2 'input for user define function

abc = p1 + p2

End Function
----------------------------------------------------------
Private Function index100(op1 As Double, op2 As Double, _
 Figure_1 As Long, Figure_2 As Long)

Dim p1 As Variant, p2 As Variant, p As Variant


If op1 >= 100 Or op2 >= 100 Then
p = Evaluate(" (" & Figure_1 & ")+(" & Figure_2 & ") ")
If op1 >= 100 Then p1 = p
If op2 >= 100 Then p2 = p
End If


End Function
----------------------------------------------------------
Private Function index200(op1 As Double, op2 As Double, _
 Figure_1 As Long, Figure_2 As Long)

Dim p1 As Variant, p2 As Variant, p As Variant


If op1 >= 200 Or op2 >= 200 Then
p = Evaluate(" (" & Figure_1 & ")+(" & Figure_2 & ") ")
If op1 >= 200 Then p1 = p
If op2 >= 200 Then p2 = p
End If


End Function