Public Sub Hauptprogramm()
    Dim Gas1Menge(3) As Variant
    Gas1Menge(0) = 80
    Gas1Menge(1) = 60
    Gas1Menge(2) = 20
    Gas1Menge(3) = 40
 
    Bubble (Gas1Menge)
'Die Ausgabe spuckt das Array genau so aus, wie ich es oben gefüllt habe
    MsgBox Gas1Menge(0) & Chr(10) & Gas1Menge(1) & Chr(10) & Gas1Menge(2) & Chr( _
      10) & Gas1Menge(3)
 
End Sub
'Durch ByRef sollte ja eigentlich auf das Array verwiesen werden, oder irre ich 
' mich?
Sub Bubble(ByRef arr1 As Variant)
    Dim tmp As Variant
    MsgBox UBound(arr1)
    For i = 0 To UBound(arr1)
        For j = 0 To UBound(arr1) - 1
            If arr1(j) > arr1(j + 1) Then
                tmp = arr1(j)
                arr1(j) = arr1(j + 1)
                arr1(j + 1) = tmp
' Durch die Überwachung wird lediglich ersichtlich, dass die Variable arr1 als 
' Array entsteht und die 
' Inhalte vom eigentlichen Array (Gas1Menge) kopiert wurden
            End If
        Next j
    Next i
End Sub

Function Auswahl(x As Integer) As Variant
  If x=1 Then
    Auswahl = Gas1Menge
  ElseIf x=2 Then
    Auswahl = Gas2Menge
' etc...
End Function