在vb中怎么 限定 字符？急急！！

Question

dim ss as string*6
ss=text1.text

Answer 1

if len(trim(cstr(val(text1)))))<>6 then .....

Answer 2

Dim aa As String * 6
    aa = Text1.Text
    Print aa; "AA"

Answer 3

Private Sub Form_Load()
Text1.MaxLength = 6
End SubPrivate Sub Text1_LostFocus()
If Len(Text1.Text) < 6 Then MsgBox "error"
End Sub

Answer 4

IF LEN（TEXT1。TEXT）=6 THENEND IF

Answer 5

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_LIMITTEXT = &HC5
Private Sub Command1_Click()
'限制长度
rc = SendMessage(Text1.hwnd, EM_LIMITTEXT, 5, 0)
End Su

Answer 6

我来修正一下： 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const EM_LIMITTEXT = &HC5Private Sub Command1_Click()
'限制长度
Dim rc As Long
rc = SendMessage(Text1.hwnd, EM_LIMITTEXT, 6, 0) '这里修改了
End Sub