标题：验证数字或字符的位数

请问，怎样通过事件验证输入的内容的位数，例如手机号码：必须是11位，不可多，也不可少！

Dim s as string = "13800138000"

IF s.Length <> 11 Orelse IsNumeric(s) = False Then

    messagebox.show("无效手机号码！")

End If