ayuda con codigo!!!

[vollager]

hola a todos soy nuevo en esto de VB y ya me atore con mi codigo, miren es simple el rpograma, por medio de un inputbox meter 9 datos(nombres) y despues ordenarlos y uqe me apraescan en mi caja de texto, todo sale bien hatsa la hora de ordenar, se que le tengo que asignar su valor en ascii pero no se como les dejo el codigo para qeu lo chequen y me digan en que me equivoque, urge!!! de ante mano gracias!

Private Sub Command1_Click()
Dim x, y, z, dato(8) As Integer
Dim ingresar(8) As String
Dim a, aux As Long
For x = 0 To 8 Step 1
ingresar(x) = InputBox("Nombre", "Dame nombres")
Next x
For z = 0 To 8 - 1 Step 1
For a = 0 To 8 - 1 Step 1
If ingresar(a) > ingresar(a + 1) Then
ingresar(a) = aux
ingresar(a + 1) = ingresar(a)
aux = ingresar(a + 1)
Else
ingresar(a) = ingresar(a)
Next a
Next z
For y = 0 To 8 Step 1
Text1.Text = Text1.Text & ingresar(y) & ", "
Next y
End Sub