Faccio informatica e non so il perche!!
allora vi prego aiitatemi!!
devo inserire dei dati in delle text box e farli inserire ordinati...questo è quello che jo provato a fare:

Private Sub Command3_Click()
num = num + 1
persona(num).corrente = num
persona(num).successivo = num + 1
If num > 2 Then
persona(num).precedente = num - 1
End If

For i = 0 To 10
If num > 1 Then
If Text1.Text < persona(persona(num).precedente).nome Then
persona(persona(num).corrente).nome = persona(num).nome
persona(num).nome = Text1.Text
num = num - 1
Else
persona(persona(num).corrente).nome = Text1.Text
End If
Next i
num = persona(num).corrente

End Sub

GRAZIEEE!!!