ที่ Textbox เป้าหมาย เขียนโค๊ตที่ Event > On Key Down >

    If KeyCode = 32 Then ' 32 คือ เว้นวรรค
        MsgBox "แจ้งเตือน"
        KeyCode = 0 ' ยกเลิกการคีย์ตัวนั้น
    End If

ประมาณนี้ครับ ปรับใชัดู

ตรงความต้องการเลยครับ ขอขอบพระคุณครับ

แต่ไปลองใช้มีปัญหาอีกนิดครับ
Private Sub txtAddress_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 32 Then ' 32 คือ เว้นวรรค
        MsgBox "คุณได้ใส่บ้านเลขที่ กรุณาระบุหมู่ที่ ..."
        KeyCode = 0 ' ยกเลิกการคีย์ตัวนั้น
        txtAddress = txtAddress & " หมู่ที่ "
    End If
End Sub
สมมติคีย์ 94 (แล้วเว้นวรรค)
msgbox แจ้งเตือน
ผลลัพธ์ที่ต้องการคือ 94 หมู่ที่
แต่มันออกมาแค่ หมู่ที่
ตัวเลขที่ใส่บ้านเลขที่ไปก่อนมันไม่มาด้วย
แก้ไขอย่างไรครับ