Sorting Program

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

This was code from someone elses algorithm that I modified
slightly. It performs the quicksort algorithm through
recursion.

VB Code:

Private Sub Quicksort(ByRef p_Array(), ByVal inLow As Long, ByVal inHi As Long)
 
   Dim pivot
   Dim tmpSwap
   Dim tmpLow  As Long
   Dim tmpHi   As Long
    
   tmpLow = inLow
   tmpHi = inHi
    
   pivot = p_Array((inLow + inHi) \ 2)
  
   While (tmpLow <= tmpHi)
  
      While (p_Array(tmpLow) < pivot And tmpLow < inHi)
         tmpLow = tmpLow + 1
      Wend
      
      While (pivot < p_Array(tmpHi) And tmpHi > inLow)
         tmpHi = tmpHi - 1
      Wend
 
      If (tmpLow <= tmpHi) Then
         tmpSwap = p_Array(tmpLow)
         p_Array(tmpLow) = p_Array(tmpHi)
         p_Array(tmpHi) = tmpSwap
         tmpLow = tmpLow + 1
         tmpHi = tmpHi - 1
      End If
   
   Wend
  
   If (inLow < tmpHi) Then Quicksort p_Array, inLow, tmpHi
   If (tmpLow < inHi) Then Quicksort p_Array, tmpLow, inHi
 
End Sub

I cant use that quick sort I have to use bubble sort Its a requirment

Ha now I am at the top of the list