Public Function aa22(aaaa As Variant) As String
Dim i As Integer
For i = LBound(aaaa) To UBound(aaaa)

Next
End Function

aa22( "12 , 0 , 18 , 3500 , 000 ")
aa22({ 12 , 0 , 18 , 3500 , 000 })
...
...
...