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

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

For p = 1 To (length - 1) Step 1
    For q = 1 To length - 1 - i Step 1
    
        If number(q + 1) < number(q) Then
        temp = number(q)
        number(q) = number(q + 1)
        number(q + 1) = temp
               
     Next p
Next q
        
        For r = 1 To length
        
        Text2.Text = Text2.Text & " " & CStr(number(i))
        Next r
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