codigo compuesto

Dim nombres(10) As String
Dim posicion As Integer
Dim nombre As String

Private Sub Command1_Click()

'declare el vector de 10, y el while de 10, entonces alli cabal cuenta los 10, q raro
 If posicion < 10 Then
        nombre = Text1.Text
        nombres(posicion) = nombre
' en esta parte, para q se muestre en el msgbox lo q ingrese debo hacerlo antes de aumentar poscion, sino me muestra la siguiente, y la siguiente no tiene nada todavia
        MsgBox "Agrego usuario:  " & nombres(posicion)
        posicion = posicion + 1

    End If
    If posicion = 10 Then
        MsgBox "Se completo la caja"
    End If
End Sub

Private Sub Command2_Click()
List1.Visible = True

'agregue esto de list1.clear para limpiar el list, entonces si lo volves a presionar, ya no te pone 9 espacios y el valor
List1.Clear
For x = 0 To 9
    List1.AddItem (nombres(x))
Next x
End Sub