吐血，复制到你的工程里面，直接用就是了。与你的控件名称无关

我记得似乎有一个函数，好像叫做is什么的可以判断一个字符是不是字母。

9楼的答案都已经没得说了

Option Explicit

Private Const GWL_STYLE = (-16)
Private Const ES_NUMBER = &H2000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
    Dim ls&
    ls = GetWindowLong(Text1.hwnd, GWL_STYLE)
    Call SetWindowLong(Text1.hwnd, GWL_STYLE, ls Or ES_NUMBER)
End Sub

'看得懂了吧