Prueba el siguiente procedimiento
sLectura=ucase(trim(text1.text))
largo=len(sLectura)
pos=instr(sLectura,"EXP")
numero1=cdbl(mid(sLectura,1,pos-1))
numero2=cdbl(mid(sLectura,pos+4,largo-pos+4))
'Ahora tienes ambos valores de tu lectura, solo falta
'transformarlos en un solo valor, de acuerdo a tu base.