Simple VBA function to split strings into words (or strings):

Function TxtSplit(rngCell As Range, delim As String, nr As Long) As String
    Dim str As String
    Dim arr As Variant
    str = Trim(rngCell.Value)
    arr = Split(str, delim)
    TxtSplit = Trim(arr(nr - 1))
End Function

Sample usage:

=TxtSplit(B2;", ";1)