>> If (B0 = "A") or (B0 > "0") Then call IRHIT ' If lower case, convert to upper

without seeing more, try

If (B0 = "A") or (B0 > "0") Then IRHIT ' If lower case, convert to upper