如何用excel VBA确定变量中的三个最小值？

Sub FindThreeMinValues()
    Dim values() As Variant
    Dim minValue1 As Variant
    Dim minValue2 As Variant
    Dim minValue3 As Variant
    Dim i As Integer
    
    ' 将需要比较的值添加到数组中
    values = Array(10, 5, 8, 3, 12, 7)
    
    ' 对数组进行排序
    Call BubbleSort(values)
    
    ' 获取三个最小值
    minValue1 = values(0)
    minValue2 = values(1)
    minValue3 = values(2)
    
    ' 在Immediate窗口中输出结果
    Debug.Print "最小值1: " & minValue1
    Debug.Print "最小值2: " & minValue2
    Debug.Print "最小值3: " & minValue3
End Sub

Sub BubbleSort(arr() As Variant)
    Dim i As Integer
    Dim j As Integer
    Dim temp As Variant
    
    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If arr(i) > arr(j) Then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
            End If
        Next j
    Next i
End Sub