Public Function MyInStr(str As String, Simvol As String, StartSym As Integer)
On Error GoTo  999 

Dim f As Integer
Dim i As Integer
Dim st As Boolean

st = False

f =  0 
i =  1 
For a =  1  To Len(str)
    If Mid(str, a,  1 ) = "," Then
        f = f +  1 
        If f = StartSym Then
        MyInStr = Trim(Mid(str, i, Len(str)))
        MyInStr = Left(MyInStr, InStr(MyInStr, ",") -  1 )
        st = True
        Exit Function
        End If
        i = a +  1 
    End If
Next


If st = False Then
    If StartSym = f +  1  Then
        If str <> "" Then
        MyInStr = Mid(str, i)
        End If
    End If
End If

Exit Function
 999 :

MsgBox Err.Description, vbCritical, Err.Number

Err.Clear


End Function