Dim num(1 To 6) As String
Dim temp, i, J As Integer


Private Sub Command1_Click()
num(1) = Text1
num(2) = Text2
num(3) = Text3
num(4) = Text4
num(5) = Text5
num(6) = Text6

For i = 1 To 6
    For J = 1 To 5
If num(J + 1) < num(J) Then
temp = num(J + 1)
num(J + 1) = num(J)
num(J) = temp
End If
Next J
Next i
Print MsgBox(num(1) & "  " & num(2) & "  " & num(3) & "  " & num(4) & "  " & num(5) & "  " & num(6))

End Sub

    Source: geocities.com/matkins70