寻求判断字符个数的函数

Question

dim password as string
..........
..........
if len(password)>10 then
msgbox "你输入的密码超过了位!"
end if
说明:其实你没有必要这么限制,你可以直接在属性列表中直接限制输入字符的长度.
也可以直接用:
password.MaxLength=10
来进行限制.

Answer 1

if len(Password)>10 then
    ...
end if

Answer 2

Private Sub Text1_Change()
If Len(Text1.Text) > 10 Then
    MsgBox "sdffds", vbInformation + vbOKOnly, "fds"
    Text1.Text = Left(Text1.Text, 10)
End If
End Sub