1
inicio escribiendo lo siguiente para crear un nuevo sub procedimiento VBA :
cleanString Sub Private ()
2
crear y definir una variable con una cadena:
StrVar dévil como secuencia
StrVar = " 2Retire números y caracteres * 432 % de string.33 "
3
Tipo lo siguiente para quitar los espacios en blanco al principio y al final de la cadena :
StrVar = Trim ( StrVar )
Escriba lo siguiente para eliminar el " 33 " en el final de la cadena :
StrVar = Izquierda ( StrVar , Len ( StrVar ) - 2 )
4
Escriba lo siguiente para eliminar " 2 " desde el principio de la cadena :
StrVar = Right ( StrVar , Len ( StrVar ) - 1 )
5
Escriba lo siguiente para eliminar " * 432 % " de la cadena :
StrVar = Reemplazar ( StrVar , " 432 *% " ," ")
6
Escriba lo siguiente para reemplazar un carácter de doble espacio con un único espacio en la cadena :
StrVar = Replace ( StrVar ," ", "")
7
Muestra un cuadro de mensaje con la cadena final escribiendo lo siguiente :
MsgBox StrVar
8
tipo "End Sub " para terminar su procedimiento y presiona " F5 " para ejecutar el código VBA.