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 Inputs:String, Char, Number Returns:the parsed String ! Funziona solo con VB6 |