Public Function funresult(total As String, contRsob As String, النوع As String) As String
If total >= 350 And النوع = "ذكر" And contRsob = 0 Then
funresult = "ناجح"
ElseIf total >= 350 And النوع = "انثى" And contRsob = 0 Then
funresult = "ناجحة"
ElseIf total < 350 And النوع = "ذكر" Or contRsob <> 0 Then
funresult = "له برنامج علاجي"
ElseIf total < 350 And النوع = "انثى" Or contRsob <> 0 Then
funresult = "لها برنامج علاجي"
Else
funresult = ""
End If
End Function