Visual Basic - Dar la vuelta a una cadena de palabras

Dim objFSO, vector, frase, archivo

Dim invertida() As string * 1

Dim i As Integer

Dim jh As Integer

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set archivo = objFSO.OpenTextFile("frase.txt", 1)

msgbox(" ***** SCRIPT FRASE ***** ")

frase = inputbox("Introduce una frase: ")

cadena= frase

vector=split(cadena)

For Each elemento In vector

MsgBox(elemento)

archivo.writeline(elemento)

archivo.quit

Next

reves = StrReverse("VBScript")

'PREGUNTAR

Dim objFSO, vector

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set crearfrase= objFSO.OpenTextFile("frase.txt",8,True) 'el 8 es para añadir al archivo cosas sin borrarlo

Usu = inputbox("Introduce la frase: ")

cadena=Usu

' prova de split 

vector = Split(cadena)

for each elemento in vector

msgbox(elemento)

Next

crearfrase.writeline(Usu)

crearfrase.close

Dim objFSO, vector, frase, archivo

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set archivo = objFSO.OpenTextFile("frase.txt", 2, True)

msgbox(" ***** SCRIPT FRASE ***** ")

frase = inputbox("Introduce una frase de 5 palabras: ")

cadena = frase

vector=split(cadena)

archivo.writeline(vector(4) + vbCrlf + vector(3) + vbCrlf + vector(2) + vbCrlf + vector(1) + vbCrlf + vector(0))   'vbCrlf hace saltos de linea

archivo.close

Private Sub Form_Load()

Combo1.Clear

conta = 0

Dim a() As String, s As String

Dim i As Integer

s = InputBox("Ingrese la cadena de caracter")

's = StrReverse(s)

a = Split(s, " ")

For i = 0 To UBound(a)

Text1.Text = Text1.Text & vbCrLf & a(i)

Combo1.AddItem (a(i))

conta = conta + 1

Next i

Do While conta <> 0

Text2.Text = Text2.Text & vbCrLf & Combo1.List(conta - 1)

conta = conta - 1

Loop

End Sub