visual basicを使うのはこれで10回目くらいでまだまだ初心者でわからないことばかりなので、細かく教えてください。

10個のテキストボックスに適当な数字（-10000～10000）を小さい順に並び替えて表示したいのですが、まったくやり方がわかりません。

↓こんな感じでやっていますがうまくいきません。
Private Sub Command1_Click()
          Dim n(10) As Integer
          a = Text1.Text
          b = Text2.Text
          c = Text3.Text
          d = Text4.Text
          e = Text5.Text
          f = Text6.Text
          g = Text7.Text
          h = Text8.Text
          i = Text9.Text
          j = Text10.Text
          n(1) = Val(a)
          n(2) = Val(b)
          n(3) = Val(c)
          n(4) = Val(d)
          n(5) = Val(e)
          n(6) = Val(f)
          n(7) = Val(g)
          n(8) = Val(h)
          n(9) = Val(i)
          n(10) = Val(j)
          nmin = 10001
          For i = 1 To 9
          For j = i + 1 To 10
          If j < nmin Then
             j = nmin
         
          End If
          Next j
          Next i
          Form1.Print j
          
         
          
End Sub