How can I get this list of names to sort alphebetically? I know theres a loop in their that probably has nothing to do with it so tell if I have to delete or something. but how do I get it to sort alphabetically

Me.Cls
Dim number(1 To 20) As Integer
Dim counter, temp As Integer
Dim temp2 As String
Dim nme(1 To 20) As String
Dim height(1 To 20) As Integer
Dim weight(1 To 20) As Integer

number(1) = 2
number(2) = 4
number(3) = 6
number(4) = 12
number(5) = 9
number(6) = 16
number(7) = 22
number(8) = 34
number(9) = 21
number(10) = 14
number(11) = 27
number(12) = 18
number(13) = 33
number(14) = 89
number(15) = 43
number(16) = 32
number(17) = 29
number(18) = 31
number(19) = 19
number(20) = 20

nme(1) = "Vincent VanGogh"
nme(2) = "Wilfrid Laurier"
nme(3) = "Abraham Lincoln"
nme(4) = "Ludwig Beethoven"
nme(5) = "George Byron "
nme(6) = "George Washington"
nme(7) = "Winston Churchill"
nme(8) = "Albert Einstein"
nme(9) = "Leonardo DaVinci"
nme(10) = "Issac Newton"
nme(11) = "Galile Galileo"
nme(12) = "Stephen Hawking"
nme(13) = "Edgar Allan Poe"
nme(14) = "Carl Gauss"
nme(15) = "William Shakespeare"
nme(16) = "Maria Curie"
nme(17) = "John Nash"
nme(18) = "James Michener"
nme(19) = "Mahatma Gandhi"
nme(20) = "Genghis Khan"

height(1) = "150"
height(2) = "57 "
height(3) = "66"
height(4) = "59"
height(5) = "53"
height(6) = "52"
height(7) = "55"
height(8) = "61"
height(9) = "52"
height(10) = "54"
height(11) = "63"
height(12) = "52"
height(13) = "55 "
height(14) = "52"
height(15) = "57"
height(16) = "58"
height(17) = "62"
height(18) = "54"
height(19) = "59"
height(20) = "58"

weight(1) = "150"
weight(2) = "57 "
weight(3) = "66"
weight(4) = "59"
weight(5) = "53"
weight(6) = "52"
weight(7) = "55"
weight(8) = "61"
weight(9) = "52"
weight(10) = "54"
weight(11) = "63"
weight(12) = "52"
weight(13) = "55"
weight(14) = "52"
weight(15) = "57"
weight(16) = "58"
weight(17) = "62"
weight(18) = "54"
weight(19) = "59"
weight(20) = "58"

For Index = 1 To 18
For counter = 1 To 19
If weight(counter) > weight(counter + 1) Then
temp = weight(counter)
weight(counter) = weight(counter + 1)
weight(counter) = weight(counter + 1)
weight(counter + 1) = temp

End If
Next counter
Next Index

Print "This is the sorted list"
Print " Age"; " Height"; " Weight"
Print nme(1); number(1); height(1); weight(1)
Print nme(2); number(2); height(2); weight(2)
Print nme(3); number(3); height(3); weight(3)
Print nme(4); number(4); height(4); weight(4)
Print nme(5); number(5); height(5); weight(5)
Print nme(6); number(6); height(6); weight(6)
Print nme(7); number(7); height(7); weight(7)
Print nme(8); number(8); height(8); weight(8)
Print nme(9); number(9); height(9); weight(9)
Print nme(10); number(10); height(10); weight(10)
Print nme(11); number(11); height(11); weight(11)
Print nme(12); number(12); height(12); weight(12)
Print nme(13); number(13); height(13); weight(13)
Print nme(14); number(14); height(14); weight(14)
Print nme(15); number(15); height(15); weight(15)
Print nme(16); number(16); height(16); weight(16)
Print nme(17); number(17); height(17); weight(17)
Print nme(18); number(18); height(18); weight(18)
Print nme(19); number(19); height(19); weight(19)
Print nme(20); number(20); height(20); weight(20)
Print
End Sub