Chức năng xóa bị lỗi ?

[Thanhhoai00]

Mình có đoạn code như sau ạ !!!
Mình đã xóa được nhân viên theo mã số thứ tự rồi nhưng có một số vấn đề mình không làm được
1. Vấn đề đầu tiên Chưa bắt được lỗi nhập mã số vào ô textbox (có nghĩa là nhập mã số nào vào ô textbox nó cũng hiện lên dòng thông báo đã xóa xong TRONG KHI KHÔNG CÓ MÃ số Nhân viên ĐÓ)
A.Mình muốn bắt lỗi ở đây là - nếu dòng textbox trống mà bấm nút XÓA thì bắt thông báo "ban chua nhap ma nhan vien"
B.Nếu nhập vào textbox mã số nhân viên khác không có trong cơ sở dữ liệu mà bấm nút XÓA thi bắt thông báo "Ma nhan vien ban nhap khong co trong csdl"
2. Vấn đề thứ hai Khi mình lỡ tay bấm nút Xóa là nó xóa luôn Mã số đó Không cancel Hủy được lệnh xóa
CÁC BẠN GIÚP MÌNH HAI VẤN ĐỀ NÀY NHÉ !!! CẢM ƠN CÁC BẠN NHIỀU Ạ !!!

Private Sub btn_Xoa_Click()
Dim ms, tim, chk
Dim Text As String
Dim Text2 As String
Dim Text3 As String
Text = "BA5N MUO61N XOA1 HO5C SINH NA2Y PHA3I KHO6NG ???"
Text2 = "VUI LO2NG NHA65P MA4 HO5C SINH"
Text3 = "D9A4 XOA1 XONG"
If tbMaNV = "" Then
        CreateObject("WScript.Shell").Popup UniConvert(Text2, "VNI"), , "THÔNG BÁO", vbOKOnly
        tbMaNV.SetFocus
        Exit Sub
End If
Worksheets("Data").Activate
With Sheets("Data")
chk = Application.ExecuteExcel4Macro("ALERT(""" & UniConvert(Text, "VNI") & """,2)")
If chk = vbNo Then Exit Sub
ms = Me.tbMaNV.Value
Set tim = Sheets("Data").[a2:a10000].Find(ms, , , 1)
If Not tim Is Nothing Then
    tim.EntireRow.Delete
End If
End With
CreateObject("WScript.Shell").Popup UniConvert(Text3, "VNI"), , "THÔNG BÁO", vbOKOnly
End Sub

Private Sub ListBox1_Click()
With Me
.tbMaNV.Value = .ListBox1.List(.ListBox1.ListIndex, 0)
End With
End Sub