du kannst auch diese Funktion nehmen - ist selbsterklärend
nur zur Hilfe
"Nr" steht für 1 2 3 4 Teil
Public Function strParse(Data, Trenn, Nr)
On Error Resume Next
Dim MainData() As String, SplitData() As String
MainData = Split(Data, Trenn)
SplitData = Split(MainData(Nr - 1), Trenn)
strParse = SplitData(0)
End Function
|