How can we use ascending order for this?

frankyhui

<div class="blockcode"><span class="headactions" onclick="copycode($('code0'));">複製內容到剪貼板</span><h5>代碼:</h5><code id="code0">Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim number As Integer
  Dim n As Integer
  Dim M6(49) As Integer
  Dim repeated As Boolean

  For x = 0 To 5
    Do
      repeated = False
      number = 49 * Rnd()

      For intindex = 0 To 5
      If number = intarray(n) Then
        repeated = True
      End If
      Next
    Loop Until repeated = False

    intarray(x) = number

  Next

  TextBox1.Text = M6(0)
  TextBox2.Text = M6(1)
  TextBox3.Text = M6(2)
  TextBox4.Text = M6(3)
  TextBox5.Text = M6(4)
  TextBox6.Text = M6(5)
  End Sub

End Class</code>