TextBox输入6位数字。输入数字不满6位在数字前自动加0补足6位
TextBox输入6位数字。输入数字不满6位在数字前自动加0补足6位

[解决办法]
Me.TextBox1.Text = Me.TextBox1.Text.PadLeft(6, "0 ")