ลองกำหนด input mask เป็น
aaaaaaaaaaaa

หนูลองทำตามดูแล้ว แต่ก็ยังเคาะวรรคได้อยู่ค่ะ

หากเราจะปิดไม่ให้รับคำสั่งจากปุ่มคีย์บาร์ไปเลย สามารถทำได้ไหมคะ

จริงๆ หากหลักการแค่ไม่ต้องการให้มีวรรคในข้อความใช้อย่างนี้ก็พอครับ
สมมุติ Textbox ชื่อ Text1

Private Sub Text1_AfterUpdate()
    If Not IsNull(Me.Text1) Then
        Me.Text1 = Replace(Text1, " ", "")
    End If
End Sub

แต่หากไม่ต้องการให้วรรคขณะพิมพ์เลยก็ลองแบบ Sendkeys ดูครับ

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 32 Then
        SendKeys "{Backspace}", False
    End If
End Sub

เพิ่งนึกออก อย่างนี้ดีกว่า SendKeys ครับ

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 32 Then
        KeyCode = 0
    End If
End Sub

ลืมซะงั้น!
ปล. หากต้องการยกเลิก Key อะไรก็ใช้วิธีนี้ครับ คือให้ KeyCode = 0

ขอบคุณค่ะอาจารย์ TTT
   
    If KeyCode = 32 Then
     KeyCode = 0
    End If
   
ใช้ได้ผลตามที่ต้องการเลยค่ะ
ขอขอบคุณอาจารย์ TTT นะคะ

เอาใหม่ครับ
กำหนด Input Mask เป็น
LLLLLLLLLL
ต้องเป็น L ใหญ่นะครับ

ลอง input mask L แล้วมันบังคับให้พิมพ์ให้ครบ
คงใช้ไม่ได้
คงต้องใช้ code ตามที่คุณ TTT ให้มาครับ