Só pra garantir???

Tem algum sentido isso??? Eu imploro à todos os programadores, futuros programadores, não façam esse tipo de coisa!!!

Private Sub Command1_Click()
    Dim iPos As Integer
    Dim aArray(3) As String
    
    aArray(0) = "Amanda"
    aArray(1) = "Fernanda"
    aArray(2) = "Juliana"
    aArray(3) = "Bianca"
    
    For iPos = 0 To UBound(aArray)
        If iPos <= UBound(aArray) Then
             lstNomes.AddItem aArray(iPos)
        End If
    Next iPos
End Sub