Dim str As String
Dim strFirst As String
Dim strLast As String
Dim intPos As Integer
str = "НС №1, НС №2, НС №3, НС №4"
intPos = InStr(str, ",")
strFirst = Mid(str, 1, intPos - 1)
Debug.Print strFirst
intPos = InStrRev(str, ",")
strLast = Mid(str, intPos + 2)
Debug.Print strLast |