Code entire delete ไม่ทำงาน

[Dtoms]

Private Sub CommandButton1_Click()
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1

Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value

End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
answer = MsgBox("¨ÐźáÅéǹÐ", vbYesNo + vbQuestion, "Â×¹Âѹ¡ÒÃź")
If answer = vbYes Then
Cells(currentrow, 1).EntireRow.Delete
End If
End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = " "
TextBox2.Value = " "
TextBox3.Value = " "
End Sub
Private Sub Label2_Click()

End Sub

[logic]

ขอดูไฟล์ครับ

อ้อ...รบกวนอ่านกฎข้อ 5 เรื่องการโพสต์โค้ดให้แสดงเป็นอักษรแบบโค้ดด้วยครับ