テキストボックスで入力された「1」という数値をを「00001」と表示するには、
Format関数を使用します。

　この関数を、テキストボックスに入力が行われたときに発生するイベントを
組み合わせて使用すると、次のようなコードになります。

　フォームには、テキストボックス「TextBox1」を配置します。

Private Sub TextBox1_Change()

    TextBox1.Text = Format(TextBox1.Text, "00000")
    
End Sub