Metodo de la Burbuja

Aqui un pequeño codigo para poder realizar el metodo de la burbuja en Visual Basic

Private Sub Command6_Click()
Dim tem As Integer
 For x = 1 To 10
 For i = 1 To 9
   If valores(i) > valores(1 + i) Then
   temp = valores(i)
   valores(i) = valores(i + 1)
   valores(i + 1) = temp
   End If
   Next i
   Next x
End Sub