Function ARRAY_Pile(INPUT_ARRAY, SYMBOL)



If IsArray(INPUT_ARRAY) = True Then

        Dim ARRAY_STOCK_TOTAL As String
        
                For i = LBound(INPUT_ARRAY) To UBound(INPUT_ARRAY) Step 1
                
                        If i = LBound(INPUT_ARRAY) Then
                        
                            ARRAY_STOCK_TOTAL = INPUT_ARRAY(i)
                        
                        Else
                        
                            If INPUT_ARRAY(i) <> "" Then
                        
                                ARRAY_STOCK_TOTAL = ARRAY_STOCK_TOTAL & SYMBOL & INPUT_ARRAY(i)
                        
                            End If
                        End If
                
                Next i
        
            ARRAY_Pile = ARRAY_STOCK_TOTAL
        
        Else
        
            ARRAY_Pile = INPUT_ARRAY  '2020.12.24 ARRAY_STOCK = 0
        
End If

End Function