Function TextoSeparado(texto As String) As String
For i = 1 To Len(texto)
If Asc(Mid(texto, i, 1)) >= 97 And Asc(Mid(texto, i, 1) <= 122) Then
TextoSeparado = TextoSeparado & Mid(texto, i, 1)
Else
TextoSeparado = TextoSeparado & " " & Mid(texto, i, 1)
End If
Next i
End Function