Sono riuscito cosi' a risolvere il problema:

Dim re

Set re = New RegExp
re.Pattern = "^[a-zA-Z]+$"

If IsNumeric(pnum) Or Len(pnum)=0 then strSQL = "SELECT * FROM q_1"
If re.Test(pnum) then strSQL = "SELECT * FROM q_2"


Avevo trovato difficolta' in internet a reperire materiale di consulto perche' cercavo:
"cerca numero in variabile",
mentre era piu' efficace cercare:
"cerca numero in stringa"