在VB编程中，要限制文本框只输入数字，可以使用`KeyPress`事件来检测用户输入的字符是否为数字。以下是一个示例代码，展示了如何实现这一功能：
```vb
Private Sub TextBox1_KeyPress（ByVal KeyAscii As Integer） Handles TextBox1.KeyPress
' 检查输入的字符是否是数字
If Not Char.IsDigit（Chr（KeyAscii）） AndAlso KeyAscii <> 8 Then
' 如果不是数字且不是Backspace键，则将KeyAscii设为0，从而阻止用户输入非数字字符
KeyAscii = 0
End If
End Sub
```
在这个示例中，`TextBox1`是文本框的名称。`KeyPress`事件会在用户按下键盘上的按键时触发。在事件处理程序中，通过检查输入的字符是否为数字（使用`Char.IsDigit`函数），以及Backspace键（ASCII码为8）是否按下，来确定是否允许输入。如果不是数字且不是Backspace键，则将`KeyAscii`设为0，从而阻止用户输入非数字字符。
此外，如果你希望文本框能够接受小数点，并且小数点只能输入一次，可以添加额外的逻辑来检查文本框中是否已经存在小数点：
```vb
Private Sub TextBox1_KeyPress（ByVal KeyAscii As Integer） Handles TextBox1.KeyPress
' 检查输入的字符是否是数字
If Not Char.IsDigit（Chr（KeyAscii）） AndAlso KeyAscii <> 8 Then
' 如果不是数字且不是Backspace键，则将KeyAscii设为0，从而阻止用户输入非数字字符
KeyAscii = 0
ElseIf KeyAscii = 46 And Not CBool（InStr（TextBox1.Text, "."）） Then
' 如果输入的是小数点且文本框中还没有小数点，则允许输入
KeyAscii = 0
End If
End Sub
```
在这个修改后的示例中，当用户输入小数点时，程序会检查文本框中是否已经存在小数点。如果不存在，则允许输入小数点；如果已经存在，则不允许输入。
通过这些方法，你可以有效地限制文本框只接受数字输入，包括整数和小数（如果需要的话）。