A função VBA REPLACE retorna o número especificado de caracteres de uma sequência de caracteres começando no número de caracteres especificado.
Replace(texto, localizar, substituir)
Ou
Replace(texto, localizar, substituir, iniciar, limitar, caso)
Vamos realizar várias substituições na linha fornecida:
Sub ReplaceExample() text = "www.moonexcel.com.ua" 'Substituição simples MsgBox Replace(text, "excel", "sheets") 'Retorna: www.moonsheets.com.ua 'Substituição sem primeiros caracteres MsgBox Replace(text, "excel", "sheets", 5) 'Retorna: moonsheets.com.ua 'Substituição especificando ou não um limite no número de substituições MsgBox Replace(text, "e", "E", 5) 'Retorna: moonExcEl.com.ua MsgBox Replace(text, "e", "E", 5, 1) 'Retorna: moonExcel.com.ua 'Substituição com ou sem estojo MsgBox Replace(text, "EXCEL", "sheets") 'Devoluções: www.moonexcel.com.ua MsgBox Replace(text, "EXCEL", "sheets", , , 1) 'Retorna: www.moonsheets.com.ua End Sub