Hola no se si te sirve para tu proyecto usar la funcion replace
sirve para reemplazar un string por otro
ejemplo:
Cita: Private Sub Form_Load()
Dim CADENA As String
CADENA = "[[[esto es la frase]]"
CADENA = Replace(CADENA, "[", "")
CADENA = Replace(CADENA, "]", "")
MsgBox CADENA
End Sub
En el ejemplo busca en la variable CADENA Los simbolos [ y los simbolos ] y Los reemplaza por lo que hay entre "" que en este caso es nada.
y nos queda la frase que hay en la variable CADENA limpia de simbolos.
salu2