Function time_array(ByVal arr_test_data As Variant) As Double
    Dim lng_array_counter As Long, lng_result_array As Long
    Dim dbl_start_time As Double, dbl_end_time As Double

    dbl_start_time = Timer
    For lng_array_counter = LBound(arr_test_data, 1) To UBound(arr_test_data, 1)
        If arr_test_data(lng_array_counter, 1) = "foo" And _
           arr_test_data(lng_array_counter, 2) = "bar" Then
            lng_result_array = lng_result_array + 1
        End If
    Next lng_array_counter
    dbl_end_time = Timer
    time_array = dbl_end_time - dbl_start_time
End Function