Mine

Private Sub Command1_Click()

    Dim number() As Integer
    length = Int(InputBox("How many terms?"))
    ReDim number(length) As Integer

    For m = 0 To ( length - 1 ) Step 1
        number(i) = Int(InputBox("Enter the term..."))
        Text1.Text = Text1.Text & " " & number(i)
    Next m

    For i = 0 To ( length - 1 ) Step 1
        For j = 0 To ( length - 1 ) Step 1
            If ( number(i) > number(j) ) Then
                temp = number(i)
                number(i) = number(j)
                number(j) = temp
            End If
        Next j
    Next i
        
    For n = 0 To (length - 1) Step 1
        Msgbox number(n)
        Text2.Text = Text2.Text & " " & CStr(number(i))
    Next n
End Sub

Private Sub Command2_Click()
    Command1.Enabled = True
    Text1.Text = ""
    Text2.Text = ""
    Command2.Caption = "Form Cleared!"
End Sub

Private Sub Command3_Click()
    End
End Sub