Dim texto As String
Dim matriz As String

 

texto = "#Escola Municipal Tia Quita#73795-000#Jardim Moradia##Teresina de Goiás#GO#"

texto = replace(right(left(texto,len(texto)-1),len(texto)-2),"##","#")

matriz = Split(texto, "#")

'Mostrando os dados do debugger

For i = 0 To UBound(matriz)
    Debug.Print matriz(i)
Next

tenta aí

 

at+