Macros problème dans un test

Bonjour,
voila j'ai un problème dans ma macro que voici:

je dois trouver par l'intermédiaire de cette formule si après avoir fait plusieus il s'agit d'une grande petite ou moyenne entreprise.

si la société est crée par une personne physique alors petite entreprise d'office mais mon test la est ok
ensute sa cloche! j'ai 3 critères: travailleurs<=50
bilan<= 3650000
chiffres d'affaires<=7300000
mais mon test la ne fonctionne pas. il fait le premier et met la réponse du premier et ne passe pas au deuxième. peut être une erreur de syntaxe. aidez moi svp merci

Function entreprise(T As Single, Bi As Single, Ca As Single, P As Single) As Single
'T=travailleurs
'Bi=bilan
'Ca=chiffres_affaires
'P=(1 or 2)
Dim score As Integer
Dim score1 As Integer
Dim score2 As Integer
Dim score3 As Integer
Dim test1 As Single
Dim test2 As Single
Dim test3 As Single
Dim resultat As Single
Dim ok As Single
Dim moyenneentreprise As Single
Dim grandeentreprise As Single
'ok=vrai

If P = 1 Then
MsgBox "petite entreprise"
Else

'test1 = (T <= 50)
'test2 = (Bi <= 3650000)
'test3 = (Ca <= 7300000)

If test1 = ok Then
score1 = 1
If test2 = ok Then
score2 = 1
If test3 = ok Then
score3 = 1
score = score1 + score2 + score3
If (score < 2) Then
MsgBox "moyenneentreprise"
ElseIf (score >= 2) Then
MsgBox "grandeentreprise"
End If
End If
End If
End If

End If

End Function