"IdIstituto" è teso o numerico? Penso la seconda.
Prova la seconda:

codice:
IstNome = cstr(rs("IdIstituto"))
IstNome = replace(IstNome,"01","Primo istituto")
IstNome = replace(IstNome,"02","Secondo istituto")