VB 6, Pengurutan Angka

Dim arrAngka() As Integer
Dim intAngkaTerkecil As Integer
Dim tmpAngka As Integer
Dim i, j As Integer 'Untuk counting

Private Sub cmdUrut_Click()
    ReDim Preserve arrAngka(Len(Trim(txtUrut.Text)))
   
     'Masukan seluruh angka ke array
     For i = 0 To Len(Trim(txtUrut.Text)) - 1
        arrAngka(i) = Mid(Trim(txtUrut.Text), i + 1, 1)
     Next i
    
     For i = 0 To UBound(arrAngka) - 1
        'Ambil angka satu2, masukan ke variabel sebagai kandidat angka terkecil
        intAngkaTerkecil = arrAngka(i)
       
        'Angka yang dijadikan kandidat terkecil dibandingkan dengan deretan angka2 berikutnya
        For j = i + 1 To UBound(arrAngka) - 1
            'Apakah angka di array lebih kecil dari kandidat angka terkecil?
            If arrAngka(j) < intAngkaTerkecil Then
                'Ubah kandidat angka terkecil dengan angka di array
                intAngkaTerkecil = arrAngka(j)
               
                'Tukarkan posisinya
                tmpAngka = arrAngka(i)
                arrAngka(i) = intAngkaTerkecil
                arrAngka(j) = tmpAngka
            End If
        Next j
    
     Next i
    
     txtUrut.Text = ""
     'Ubah text box dengan deretan angka yang sudah di urut
     For i = 0 To UBound(arrAngka) - 1
        txtUrut.Text = txtUrut.Text + CStr(arrAngka(i))
     Next i
End Sub