无法,变通一下处理
Dim txt As String = ""Do until txt.length = 6 InputValue(txt, "标题", "请输入6个字符")Loopmsgbox(txt)