自建錯誤處理(編號：3912)

一個事件程序中有數個分開的判斷
...........
if　空字串　Then
處理程式碼 AAA
end if
...........
...........
if　不存在　Then
處理程式碼 AAA
end if
...........
...........
if　值不符　Then
處理程式碼 AAA
end if
...........
...........
...........
因為都是執行同樣的處理程式碼 AAA，所以想自建錯誤處理，
Const MYErrorNumber=1+VBObjectError+512
再用On Error goto ErrorHandler
ErrorHandler:
Select case err.Number
case ..
case MYErrorNumber
處理程式碼 AAA
end Select
請問要如何才能偵測到自建錯誤的MYErrorNumber而不需要寫這麼多If...Then就可以像VB自動偵測到錯誤。