Mengurutkan angka visual basic

Berikut ini adalah salah satu program untuk mengurutkan angka dari kecil ke besar menggunakan visual basic.

Option Explicit
Dim N As Integer, Banyak As Integer
Dim i As Integer, j As Integer
Dim temp As Integer, Data(1000) As Integer

Private Sub Command1_Click()
    N = N + 1
    Data(N) = Text2
    Banyak = CInt(Text1)
    If N <= Banyak Then
        List1.AddItem "Masukan ke -" & " " & N & " =" & " " & Text2
    ElseIf N > Banyak Then
        Text2 = ""
        N = Banyak
        MsgBox "Data yang Anda masukkan sudah pada batasnya"
    End If
    Text2 = ""
    Text2.SetFocus
End Sub

Private Sub Command2_Click()
    For i = 1 To N
        For j = i + 1 To N
            If Data(i) > Data(j) Then
                temp = Data(i)
                Data(i) = Data(j)
                Data(j) = temp
            End If
        Next j
    Next i
    List1.AddItem "================"
    List1.AddItem "Hasil Urutan dari kecil ke besar"
    For i = 1 To N
        List1.AddItem Data(i)
    Next i
    List1.AddItem "================"
End Sub

Private Sub Command3_Click()
    List1.Clear
    N = 0
    Text2 = ""
    Text1 = "" 
    Text1.SetFocus
End Sub

Private Sub Command4_Click()
    End
End Sub