Supongo que lo que necesitas es obtener un vector con los elementos de que conste esa variable de caracteres...
Como tú no me conoces, quizás te extrañe saber que yo nunca diría "aki estoy", sino que pondría "aquí estoy"... Y hasta puede que te extrañe el que yo te aconseje que tú también te expreses así, porque el español es algo muy, muy serio... y tenemos que luchar por conservarlo limpio... Yo te agradecería que hicieras un esfuerzo y en el foro escribieras en español o castellano, como desees... Pero vamos al grano:
Código:
Dim FraseInicial As String
Dim n As Integer, Espac As Integer
Dim Grupo()
FraseInicial = Text1.Text ' Para que puedas introducir la secuencia de palabras en una caja
n = 0
Grupo = Array(0)
Do While True
ReDim Preserve Grupo(n)
Espac = InStr(FraseInicial, " ")
If Espac = 0 Then ' Final de la frase
Grupo(n) = FraseInicial
Exit Do
End If
Grupo(n) = Lef(FraseInicial, Espac - 1)
FraseInicial = Mid(FraseInicial, Espac + 1)
Loop Bueno, ahora ya tienes un vector de los elementos con los que estoy seguro de que tú ya sabrás hacer las permutaciones, ¿no? Y si necesitas más ayuda, pues ya sabes dónde nos tienes.
Duda con un ejercicio de programacion (permutaciones) 
Mode Lineal
