Sorting array with VBS

Question

I am reading data from file to array with For Next loop. I get the data to array but when I try to pass this unsorted array to bubblesort function I get type mismatch error. I don't understand why.
'This causes type mismatch
arrTestArray = BubbleSort(arrTestArray)
Function BubbleSort(arrValues)
    Dim j, k, Temp
    For j = 0 To UBound(arrValues) - 1
        For k = j + 1 To UBound(arrValues)
            If (arrValues(j) > arrValues(k)) Then
                Temp = arrValues(j)
                arrValues(j) = arrValues(k)
                arrValues(k) = Temp
            End If
        Next
    Next
 BubbleSort = arrValues
End Function

Answer 1

I should also note that in Office VBA and in VB6 we can do this:
Dim someArray(1 To 10)Dim someArray(-3 To 12)
Dim someArray(-10 To -1)This is where the need for LBound comes from. If you generate an array like this in Office and pass it to VBScript then you need to use LBound.
The misuse of UBound -1 is a takeoff on using Length for the limit.
for I = 0 to A.Length -1
which would be better stated like this:
i=0
while(i < a.length)
   i = i - 1
wend
Of course VBScript doesn't not have an array length function.
¯\_(ツ)_/¯