replace

[javopereira]

una opcion para mi sería
cCadena = "ElRioDorado"
if instr(cCadena, "_")=0 then <<Esto lo hacemos para ver si ya no tiene los "_"
for nI=1 to len(cCadena)
if mid(cCadena,nI,1) = uCase(mid(cCadena,nI,1)) <<¿es mayuscula?
cCadena = left(cCadena, nI) & "_" & mid(cCadena, nI + 1)
end if
next nI
end if

OJO que esto lo armé asi nomas y puede tenre un errocillo u otro. Probalo con cuidado.
Tambien controlá el primer caracter. Por lo que creo, tal comoe sta, debería devolver "_El_Rio_Dorado"

Espero te ayude.