在Visual Basic中，要允许用户输入一个小数点，你可以通过以下方法实现：
方法一：使用KeyPress事件
你可以在TextBox控件的KeyPress事件中添加逻辑来检查用户是否输入了小数点，并且确保小数点只输入一次。以下是一个示例代码：
```vb
Private Sub TextBox1_KeyPress（ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs） Handles Textbox1.KeyPress
If Char.IsDigit（e.KeyChar） Or e.KeyChar = Chr（8） Or e.KeyChar = "." Then
' 如果输入的是小数点，并且文本框中还没有小数点，则允许输入
If e.KeyChar = "." And InStr（TextBox1.Text, "."） = 0 Then
e.Handled = False
Else
' 如果输入的是数字或退格键，则允许输入
e.Handled = True
End If
Else
' 如果输入的不是数字、退格键或小数点，则屏蔽该输入
e.Handled = True
End If
End Sub
```
方法二：使用ASCII码检查
你也可以通过检查输入字符的ASCII码来确保只允许数字和小数点输入。以下是一个示例代码：
```vb
Private Sub TextBox1_KeyPress（ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs） Handles Textbox1.KeyPress
' 如果输入的是数字或退格键，则允许输入
If （e.KeyChar >= "0"c And e.KeyChar <= "9"c） Or e.KeyChar = 8 Then
e.Handled = False
' 如果输入的是小数点，并且文本框中还没有小数点，则允许输入
ElseIf e.KeyChar = "."c And InStr（TextBox1.Text, "."） = 0 Then
e.Handled = False
Else
' 如果输入的不是数字、退格键或小数点，则屏蔽该输入
e.Handled = True
End If
End Sub
```
方法三：使用InStr函数
你还可以使用InStr函数来检查文本框中是否已经存在小数点，从而确保小数点只输入一次。以下是一个示例代码：
```vb
Private Sub TextBox1_KeyPress（ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs） Handles Textbox1.KeyPress
If Char.IsDigit（e.KeyChar） Or e.KeyChar = Chr（8） Or e.KeyChar = "." Then
' 如果输入的是小数点，并且文本框中还没有小数点，则允许输入
If e.KeyChar = "." And InStr（TextBox1.Text, "."） = 0 Then
e.Handled = False
Else
' 如果输入的是数字或退格键，则允许输入
e.Handled = True
End If
Else
' 如果输入的不是数字、退格键或小数点，则屏蔽该输入
e.Handled = True
End If
End Sub
```
这些方法都可以有效地控制用户在TextBox控件中输入小数点，并确保小数点只输入一次。你可以根据自己的需求和编程环境选择最适合的方法。