テキストボックスでしか確認していませんが、下記のような方法ではだめですか?Private Sub Text1_KeyPress(KeyAscii As Integer) If Len(Text1.Text) >= 6 Then KeyAscii = 0 End IfEnd Sub