Algumas combinações são apenas as letras invertidas.
Serviu até pra uma pequena "conferida".
CASE cTxt $ "UG,LA,AL,GU" ; cNum := "0"
CASE cTxt $ "X8,8X,CN,NC" ; cNum := "1"
CASE cTxt $ "Z0,EP,PE,0Z" ; cNum := "2"
CASE cTxt $ "GR,B1,1B,RG" ; cNum := "3"
CASE cTxt $ "3D,DI,D3,ID" ; cNum := "4"
CASE cTxt $ "SJ,C4,4C,JS" ; cNum := "5"
CASE cTxt $ "2A,A2,QH,HQ" ; cNum := "6"
CASE cTxt $ "FO,09,90,OF" ; cNum := "7"
CASE cTxt $ "7Y,DM,Y7,MD" ; cNum := "8"
CASE cTxt $ "5V,BK,V5,KB" ; cNum := "9"