能否编写一个函数过程或者子过程，实现对窗体内所有文本框（TextBox）数据输入合法性（例如只能输入数字）进行检验，若输入不是数字则弹出错误窗口。编写思路是什么？
谢谢！

中判断输入的是字符还是数字
https://bbs.
 If IsNumeric(Me.TextBox1.Text) Then
            MsgBox("是数字")
        Else
            MsgBox("不是数字")
        End If

谢谢您的解答！
试了下，这段语句只能判断文本框（TextBox1）是否输入了数字，不能判断窗体内其他文本框（比如TextBox2、TextBox3……是否输入了数字）。从其他网站上搜到下列子过程，可以解决这个问题，供大家参考。
Public Class form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call IsExists(Me)
End Sub

    Public Sub IsExists(ByVal frmTestText As Windows.Forms.Form)
        Dim c As Control
        For Each c In frmTestText.Controls
            If TypeOf c Is TextBox Then
                c.Text = c.Text.Trim
                If c.Text = "" Or Not IsNumeric(c.Text) Then
                    c.Text = ""
                    MsgBox("输入数据有误，请重新输入 !")
                    c.Focus()
                    Exit Sub
                End If
            End If
        Next
    End Sub
End Class