Function CNT_Simb(Simb As String, TXT As String)
c =  1 
For i =  1  To Len(TXT)
    If Mid(TXT, i, Len(Simb)) = Simb Then c = c +  1 
Next i

CNT_Simb = c

End Function


Function NumSimb(Simb As String, TXT As String, numVH)
CS =  0 
NS =  1 
    While CS <> numVH
        If Mid(TXT, NS,  1 ) = Simb Then CS = CS +  1 
        If NS >= Len(TXT) Then
            NS = Len(TXT) +  1 
            CS = numVH
        End If
        NS = NS +  1 
    Wend
NumSimb = NS
End Function

Function SeparateMarshr(Simb As String, TXT As String, NumMarsh)
    If CNT_Simb(Simb, TXT) =  1  Then
        SeparateMarshr = TXT
    Else
        BS = NumSimb(Simb, TXT, NumMarsh -  1 )
        LS = NumSimb(Simb, TXT, NumMarsh) - BS
        SeparateMarshr = Mid(TXT, BS, LS -  1 )
    End If
End Function