如何用vb设置密码不小于6位

可以用len判断
if len(text1.text) < 6 then
msgbox("密码小于6位")
end if

dim p as string
p = trim(text1.text)'过滤两边的空格
if len(p)<6 then

else

end if

不可以用trim，空格也可以作为密码的一部分，
if len(password)<6 then
msgbox "密码小于6位"
end if