在VB6中，如果你想在用户输入数字时自动添加小数点和千分位，你可以使用`TextBox`控件的`KeyDown`和`KeyPress`事件来实现。以下是一个示例代码，展示了如何在用户按下回车键时自动将输入的整数转换为带有两位小数的格式：
```vb
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
' 检查是否按下了回车键
If KeyCode = vbKeyReturn Then
' 将文本框中的文本转换为格式化的字符串，保留两位小数
TextBox1.Text = Format(TextBox1.Text, "0.00")
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' 如果文本框中的文本长度为2（即只输入了一个数字），则将其除以10并格式化
' 否则，如果文本长度大于2，则将其乘以10并格式化
If Len(TextBox1.Text) = 2 Then
TextBox1.Text = Format(TextBox1.Text / 10, "0.00")
ElseIf Len(TextBox1.Text) > 2 Then
TextBox1.Text = Format(TextBox1.Text * 10, "0.00")
End If
End Sub
```
在这个示例中，`TextBox1_KeyDown`事件会在用户按下任何键时被触发，但只有当按下的是回车键时，才会执行格式化操作。`TextBox1_KeyPress`事件则会在用户按下任何键时被触发，并根据文本框中当前文本的长度来决定是除以10还是乘以10，然后格式化文本。
请注意，这个示例假设用户输入的是整数。如果你需要处理小数，你可能需要进一步修改代码以处理小数点和其他小数位。
另外，如果你想要在显示时保留两位小数，但不希望在数字前面有前导零，你可以使用`Round`函数来替代`Format`函数。`Round`函数会将数字四舍五入到指定的小数位数，并返回一个数值，这样你就可以避免在输出时出现前导零的问题。例如：
```vb
Private Sub command1_click()
Dim a As Double
a = 0.045754
' 使用Round函数保留两位小数
a = Round(a, 2)
' 输出到文本框或其他控件
TextBox1.Text = a
End Sub
```
在这个示例中，`command1_click`事件处理程序将变量`a`的值四舍五入到两位小数，并将结果存储在`TextBox1`中。这样，无论`a`的初始值是什么，输出到文本框时都会显示为两位小数，且不会有前导零。