Adapting Bubblesort to work with Long datatype array

I've tried about every combination I could think of but no dice...

This is the original code coming from Microsoft's website and out of the box it works. So I thought, let's try to make it work for me.

Function BubbleSort(TempArray As Variant)
          Dim Temp As Variant
          Dim i As Integer
          Dim NoExchanges As Integer

          ' Loop until no more "exchanges" are made.
          Do
              NoExchanges = True

              ' Loop through each element in the array.
              For i = 1 To UBound(TempArray) - 1

                  ' If the element is greater than the element
                  ' following it, exchange the two elements.
                  If TempArray(i) > TempArray(i + 1) Then
                      NoExchanges = False
                      Temp = TempArray(i)
                      TempArray(i) = TempArray(i + 1)
                      TempArray(i + 1) = Temp
                  End If
              Next i
          Loop While Not (NoExchanges)

      End Function

      Sub BubbleSortMyArray()
          Dim TheArray As Variant

          ' Create the array.
          TheArray = Array(15, 8, 11, 7, 33, 4, 46, 19, 20, 27, 43, 25, 36)

          ' Sort the Array and display the values in order.
          BubbleSort TheArray
          For i = 1 To UBound(TheArray)
              MsgBox TheArray(i)
          Next i
      End Sub

This I what I changed it into to adapt to my needs:

Function BubbleSort(TempArray As Long)
          Dim Temp As Long
          Dim i As Integer
          Dim NoExchanges As Integer

          ' Loop until no more "exchanges" are made.
          Do
              NoExchanges = True

              ' Loop through each element in the array.
              For i = 1 To UBound(TempArray) - 1

                  ' If the element is greater than the element
                  ' following it, exchange the two elements.
                  If TempArray(i) > TempArray(i + 1) Then
                      NoExchanges = False
                      Temp = TempArray(i)
                      TempArray(i) = TempArray(i + 1)
                      TempArray(i + 1) = Temp
                  End If
              Next i
          Loop While Not (NoExchanges)

      End Function

      Sub BubbleSortMyArray()
         Dim TheArray(1 To 10) As Long

          

          ' Create the array.

          TheArray(1) = 100
          TheArray(2) = 200
          TheArray(3) = 40
          

          ' Sort the Array and display the values in order.
          BubbleSort TheArray
          For i = 1 To UBound(TheArray)
              MsgBox TheArray(i)
          Next i
      End Sub

That get's me the Error 'Byref argument types do not match'.

So I tried calling it like this:

BubbleSort (TheArray)

Which gets me the Error 'Matrix argument must be by ref. '
Also what goes beyond me is how True can be assigned to the NoExchanges integer instead of a boolean. I do understand how bubblesort works, I just can get it to sort my array. Sorry for being such a noob...

As you've rewritten the code, it takes a single variable (a Long), which doesn't leave much to sort. Change it back to a Variant.

I didn't look past the first line.

A bubble sort is about the least efficient sort possible, BTW. You wouldn't want to sort more than a few hundred itemes, or even fewer if you're doing it a lot.

I don't quite follow VBA logic in that case.

The original code also passes a single variable (one array), but as a Variant.
When I make the Long array in my code it holds 3 values. The rest is empty.
The orignal codes also defines an array and puts values into it.

It looks to me I did the same with longs instead of variants?

Dim TheArray(1 To 10) As Long

As I understand, a Variant can hold every datatype. As I only work with 'Long' values I assumed I did not need a Variant array.

I have written a function before and it had to be declared this way

Function ErrorHandling(variable As String) As returndatatype

where as Microsoft's Function does not seem to have a return data type.
Very confusing to newbies. Still reading up on the matter though.

Arrays are always passed by reference in VBA.

A Variant can hold any kind of data, including arrays. As the argument to a function, a Variant can receive any type of data passed; but a Variant passed to a function can only be received as a Variant; does that make sense?

When a VBA function does not have an explicitly declared return type, it is, by default, a Variant, just like declaring a variable without specifying a type.