textbox active to enter

ทำยังไงให้ textbox กด enter แล้วเริ่มรัน sub ครับ?
คือที่ทำมันต้องกดปุ่มเอา แต่อยากให้พอกรอกข้อมูลเสร็จ กด enter แล้วเริ่มทำงานเลย ทำยังไงครับ? ขอบคุณมากครับ 


ก็ใช้เหตุการ text1_KeyPress() เช่น

Private sub text1_KeyPress(KeyAscii as Integer)
if KeyAscii = 13 then ' ถ้ากด enter
คำสั่ง
...
end if
End sub

หรือไม่กดเรียก command ตัวนั้นมาเลยก็ได้

Private sub text1_KeyPress(KeyAscii as Integer)
if KeyAscii = 13 then ' ถ้ากด enter
call command1_Click
end if
End sub