vba - add multiple criteria: if entering word #1, #2 and so on in a cell, then messagebox

Question

I\'d like to add multiple criteria to this code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
        Const srcCol As String = "A"