Reemplazar

[damargon]

Tienes que decirle al código qué hacer dependiendo del valor de Pais mediante IF o Select.

If pais="es" then
Pais = Replace(Pais,"es","España")
end if
if pais="pa" then
Pais = Replace(Pais,"pa","Panama")
end if
if pais="ad" then
Pais = Replace(Pais,"ad","Andorra")
end if

Tal y como lo estás haciendo ahora pasa esto:
Pais = Replace(Pais,"es","España")
Aquí Pais contiene el valor "España", ok? pero entonces vuelves a ejecutar el replace en la línea siguiente:
Pais = Replace(Pais,"pa","Panama"), entonces como Pais en este momento es "España" encuentra la cadena "pa" y la sustituye por el parámetro que le pasas: "Panama" formando la cadena "EsPanamaña"

espero haberme explicado.

Saludos