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)))

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

Private Function pd(n As String) As Boolean
    pd=isnumeric(n)     
End Function

if pd("4612") then
    msgbox "是数字"
end if

if pd("adf12") then
   msgbox "非数字"
end if

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

搞定了！
谢谢

将And 改为Or