How Do I make a program that lets you type in some random data height weight age and name then click sort by age , sort by name ( alphabetically) ... dot dot dot without a external text file data base also this is my basic code except wiht 20 names now

Private Sub Command1_Click()
Dim number(1 To 5) As Integer
Dim counter, temp As Integer

number(1) = 2
number(2) = 4
number(3) = 6
number(4) = 12
number(5) = 9

Print "this is the original list"
Print number(1)
Print number(2)
Print number(3)
Print number(4)
Print number(5)

For Index = 1 To 3
For counter = 1 To 4
If number(counter) > number(counter + 1) Then
temp = number(counter)
number(counter) = number(counter + 1)
number(counter + 1) = temp
End If
Next counter
Next Index

Print "This is the sorted list"
Print number(1)
Print number(2)
Print number(3)
Print number(4)
Print number(5)

End Sub