من یه کد آسون میخوام !

با سلام به دوستان عزیز !
من یه سورس کد آماده برای چیدمان عدد داخل 7 تا text box از بزرگ به کوچک و قرار دان بزرگترین در یک text box دیگر می خواستم !
از for/next نتونستم !
اگه کد بدید ممنون می شوم !
:13::13::13::13::13::13::13::13::13::13::13:

اینم کد:

کد:

---

Dim a(1 To 7)
Private Sub Command1_Click()
a(1) = Text1.Text
a(2) = Text2.Text
a(3) = Text3.Text
a(4) = Text4.Text
a(5) = Text5.Text
a(6) = Text6.Text
a(7) = Text7.Text


For i = 1 To 7
For j = i To 7
If a(i) < a(j) Then
b = a(i)
a(i) = a(j)
a(j) = b
End If
Next j
Next i

Text1.Text = a(1)
Text2.Text = a(2)
Text3.Text = a(3)
Text4.Text = a(4)
Text5.Text = a(5)
Text6.Text = a(6)
Text7.Text = a(7)

End Sub

---

واقعا دستت درد نکنه کار می کنه !!!