Private Function pd(n As String) As Long
Dim t_len As Integer
t_len = Len(Trim(n))
For i = 1 To t_len
    t_mid = Mid(CStr(Trim(n)), i, 1)
   
    If Asc(t_mid) < 48 And Asc(t_mid) > 57 Then
   
        MsgBox ("您输入的电话号码有误,请重新树输入!") ' + vbCritical)
              
        Exit For
        
    End If
   
Next
      
End Function

什么意思？
我在按钮时间中调用
调用语句是：
Call pd(CStr(Trim(Tex_phone.Text)))

我市用来判断输入是不是全市数字的函数。

可是我不想改变原函数的做法，
因为我要片断输入的每一个字符

搞定了！
谢谢