Hola, no se si te entendi, pero proba esto:
Código:
Private Sub Command1_Click()
Dim x, y, z, dato(8) As Integer
Dim ingresar(8) As String
Dim a, aux As Long
Dim Ordenar As String
For x = 0 To 8 Step 1
ingresar(x) = InputBox("Nombre", "Dame nombres")
Ordenar = Ordenar & ingresar(x) & ", "
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)
End If
Next a
Next z
Text1.Text = Mid(Ordenar, 1, Len(Ordenar) - 2)
End Sub
te pide los 9 nombres y despues te los escribe en el textbox separados por comas...no se si es eso lo que queres...
saludos.