Hello
I have created 2 functions
F1
Function special_txttonr(text As String)
Dim arr(), a As Long
c = 0
For a = LBound(Split(text, ",")) To UBound(Split(text, ","))
ReDim Preserve arr(a)
arr(a) = CInt(Split(text, ",")(a))
b = arr(a)
x = WorksheetFunction.Max(b, c)
c = x...