Function ИЗВЛЕЧЬЧИСЛО(текст As String, позиция As Integer, Optional разделитель As String = "х") ИЗВЛЕЧЬЧИСЛО = Split(текст, разделитель)(позиция - 1) End Function