Condition sur inputbox

Bonjour à tous,

Je voudrais restreindre le nombre de caractères de saisie dans une inputbox.
J'ai essayé avec une boucle et un IF ... THEN mais cela ne fonctionne pas.
Quelqu'un a-t-il une autre solution? Ci-dessous mon code:

reference = inputbox("Saisir votre texte", "test saisie texte", "")
If LenB(reference) > 30 Then
While LenB(reference) > 30
MsgBox "Saisir 30 caractères maximum", "48", "Texte trop long !"
reference = inputbox("Saisir votre texte", "test saisie texte", "")
Wend
End If

De plus
Comment peut on affecter la date du jour à une cellule à partir d'un code?
Est il possible d'affecter à une image un code pour faire une impression?

Merci d'avance