Muchas gracias. al final entendí que no se debe especificar I en el TO de los for, la burbuja quedaría asi. funciona correctamente.
Código:
For k = 1 To n
For i = 0 To (n - k)
If vector(i) > vector(i + 1) Then
aux = vector(i)
vector(i) = vector(i + 1)
vector(i + 1) = aux
End If
Next
Next