Probleme VBA userform/Boucle for/if

Bonjour,
Je me permet de poser ici car j'ai un soucis avec du VBA et j'ai beau le tourner dans tout les sens je n'y arrive pas.
je vous expose le problème:

je récupère des donné grâce a des textbox dans un userform et je les met dans des variables comme ça:
gp1 = UserForm1.TextBox6.Value
(je précise que "gp1" a été défini avec un dim)

ensuite j'effectue une boucle for tout ce qu'il y a de plus classique:
For x = 0 To l Step (l / intervale)

ensuite j'effectue énormément de calcul et la j'ai un problème qui survient sur une boucle if:
f x < xp1 Then
'expression du moment à gauche de la charge
MsgBox (x & "<" & xp1)
M_ponc_perma = gp1 * x / l * (l - xp1)
Else
'expression du moment à droite de la charge
MsgBox (x & ">" & xp1)
M_ponc_perma = gp1 * xp1 / l * (l - x)

End If
(les msgbox sont la pour essayer de comprendre le problème)

donc si je prend un l de 6 et un xp1 de 1 mon x varie de 0 à 6 et xp1 reste a 1
mes msgbox me renvoie (pour un intervale de 6 mais la n'est pas la question)
0<1, 1<1, 2<1, 3<1, 4<1, 5<1, 6<1

et si je récupère mes donné avec un range("") il fait bien le test
très honnêtement je n'arrive pas a comprendre.
je fais donc appel à vos lumières (n'hésitez pas a me demander des précisions car le code fait 1700 lignes mais je ne peux pas tout mettre ici)
Merci d'avance