Split Function

[gsandy]

I am having trouble with getting the split function to work!

Dim MyString As String
MyString = Split(Rng1.Offset(0, 23).Value2, ",",2)
MsgBox MyString

The value of Rng1.Offset(0, 23).Value2 is “Training Given, Joe Bloggs, 12-12-17”
I am trying to extract the “Joe Bloggs” portion.
How can I modify the code to get it to work?
Thanks Sandy.

[Mumps1]

Try:

Dim MyString As String
MyString = Split(Rng1.Offset(0, 23).Value2, ",")(1)
MsgBox MyString

[gsandy]

Thanks also Alkey

[AlKey]

Try formula

=TRIM(MID(SUBSTITUTE(A1,",",REPT(" ",50)),50,50))

v	A	B
1	Training Given, Joe Bloggs, 12-12-17	Joe Bloggs

[gsandy]

Thanks Mumps that worked a treat. Cheers Sandy

[Mumps1]

You are very welcome.