Formatage nombre

Bonjour,

Voilà mon nouveau problème, j'ai entré cette formule dans ma macro pour les nombres. Quand j'ai un nombre à 3 chiffres, j'ai pas de problème mais dès que c'est plus de 3, il est rentré en tant que texte dans ma cellule et je n'arrive pas à changé le format.
J'ai donc encore une fois besoin de vous pour éclairer ma lanterne.

ActiveCell.Offset(0, 1).Value = Format(Val(TextBox4.Value), '# ##0,00') 'insère le montant dans recette

Merci d'avance
@+Patbart