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. 
 
 
          
