Ciao..prova ad usare questo tipo di codice:

codice:
dim valoredatroncare
dim a as long

a = instr(1,valoredatroncare,",",vbtextcompare
valorenuovo = left(valoredatroncare, a + 4)

'dove 4 sono i caratteri da prendere dopo la virgola
ciao..auguri