VB2008 fixed string and fill the rest with zeros

[mnavas]

I need to format a string in a fixed number of characters.

For example, if someone type TWO

It has too save in the variable

000TWO

if type THREE

0THREE

Always 6 characters and fill the rest with zeros on the left.

Any idea?