Kod aşağıda fakat bu kodu kullanırken Private Sub Text1_Change() …. kullanmamaya özen gösterin çünkü numaralar o zaman sıralanmayacaktır..Çünkü kodun çalışma ilkesi ile bu ters düşecek..Ayrıca bu kod sanırım TExt Boxlardaki değerlerin sıralanması için yazılabilecek basit kodlardan hadi kolay gelsin…

Private Sub Command1_Click()
‘Burada formunuzda sıralanmasını istediğiniz TEXTBOx kadar Numberlist tanımlayın
Dim NumberList(4) As Integer
NumberList(0) = CInt(Text1.Text)
NumberList(1) = CInt(Text2.Text)
NumberList(2) = CInt(Text3.Text)
NumberList(3) = CInt(Text4.Text)
NumberList(4) = CInt(Text5.Text)
For j = 0 To 4
For i = 0 To 3

If NumberList(i) > NumberList(i + 1) Then
temp = NumberList(i)
NumberList(i) = NumberList(i + 1)
NumberList(i + 1) = temp
End If
Next i
Next j
‘Şimdi bu number listleri sırasıyla TEXT BOX lara yerleştirin
Text1.Text = NumberList(0)
Text2.Text = NumberList(1)
Text3.Text = NumberList(2)
Text4.Text = NumberList(3)
Text5.Text = NumberList(4)
End Sub