Tạo mã lỗi của người dùng trong VBA Excel

[SA_DQ]

Public Const BienDoiTuongChuaSET As Long = 1234
Sub SetObject()
1 Dim eRng As Object
 On Error GoTo LoiCT
2 If eRng Is Nothing Then
    Err.Raise BienDoiTuongChuaSET, GPE, "Cân SET Biên Dôi Tuong"
3 End If
5 Dim ID As String
Done:
    MsgBox "Xong Rôi!":         Exit Sub
LoiCT:
 If Err = 5 Then
    MsgBox Erl:         '        Resume Next
 Else
    ' Err.Raise will send code to here
    MsgBox "Lôi CT: " & Err.Description, , Err
 End If
End Sub