Nhờ giúp đỡ viết thêm code vào CommandButton để xoá số liệu trong Textbox

[AnhThu-1976]

Em nhờ các anh/chị viết thêm code xoá số liệu trong Textbox như sau:
1/ Mở Form: Tại sheet TH, trong cột D (từ D9 trở xuống) cứ DoubleClick thí nó hiện Form
Trong Form em mới thêm nút CommandButton1 –XÍ XOÁ

Em nhờ anh/chị viết thêm code cho nút trên như sau
Em muốn khi click vào nút này thì nó xoá hết số liệu trong Textbox NhomHang, đồng thời con trỏ chuột cũng nằm trong Textbox NhomHang (để nhập liệu)
Em cảm ơn anh, chị!

 

[AnhThu-1976]

Vì một ngày em phải nhập 2 -4 ngàn dòng, sau khi chọn được mặt hàng thì em phải xoá những ký tự đã nhập vào trong textbox. Nên động tác click chuột vào text box, rồi giữ chuột bôi đen các ký tự rồi sau đó bấm phím delete thì hơi mất tý thời gian, nên em nghĩ ra cách theo hướng trên.
Không biết hướng này có thực hiện được không, nếu được thì anh/chị giúp em hoặc anh/chị có hướng thuận tiện khác hoặc dễ hơn thì giúp em.

 

[Maika8008]

Em nhờ các anh/chị viết thêm code xoá số liệu trong Textbox như sau:
1/ Mở Form: Tại sheet TH, trong cột D (từ D9 trở xuống) cứ DoubleClick thí nó hiện Form
Trong Form em mới thêm nút CommandButton1 –XÍ XOÁ

Em nhờ anh/chị viết thêm code cho nút trên như sau
Em muốn khi click vào nút này thì nó xoá hết số liệu trong Textbox NhomHang, đồng thời con trỏ chuột cũng nằm trong Textbox NhomHang (để nhập liệu)
Em cảm ơn anh, chị!

Có 2 dòng thôi chứ có gì đâu nhỉ
NhomHang.SetFocus
NhomHang = ""