Public Function strParse(Data, Char, Nr)
Dim MainData() As String
Dim SplitData() As String
Nr = Nr - 1
MainData = Split(Data, Char)
SplitData = Split(MainData(Nr), Char)
strParse = SplitData(0)
End Function
(splitstring.html)- by Paolo Puglisi - Modifica del 25/3/2019