non conosco bene vbscript, ma devi prendere una sottostringa di txtcalcolatrice partendo da 1 a lunghezza(txtcalcolatrice)-1