excel 怎样自定义文本框控件录入文本的格式

TextBox3需要输入数字，例如1 2 3，但是希望在单元格中显示的结果是001 002 003 这样的格式，这个要怎么实现呢，试了很多方法都不行
代码片段：
.Offset(1, 1) = TextBox3.Text = Format(Val(TextBox3.Text), "000") '指定输入文本的格式为三位数
完整代码：
Private Sub CommandButton1_Click() '单击“点击保存”按钮时时执行
If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And ComboBox1 <> "" And ComboBox2 <> "" And ComboBox3 <> "" Then '如果6个文本框都有字符
With ActiveSheet.Range("A6").End(xlDown) '引用工作表的A列最后一个非空单元格
.Offset(1, 1) = TextBox3
.Offset(1, 2) = ComboBox3.Value
.Offset(1, 8) = TextBox1
.Offset(1, 11) = ComboBox1.Value '将复合框ComboBox1中的值导入到下移一行右移十一列的单元格
.Offset(1, 12) = ComboBox2.Value
.Offset(1, 15) = TextBox2 '将文本框TextBox1中的值导入到下移一行右移十五列的单元格
End With
MsgBox "保存成功"
End If
End Sub

可以对文本框3，进行单独设置，比如：
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox3.Text) <> 3 Then
    TextBox3.Text = Application.Rept("0", 3 - Len(TextBox3.Text)) & TextBox3.Text
End If
End Sub