risolto con:

codice:
CercaID = StrConv(CercaID , vbFromUnicode)

Grazie mille x i consigli