Public Function LeftRight$(a As Range, _
        Optional lr As Byte, Optional sep$ = " ")
' a - ссылка на ячейку, значение которой надо разделить;
' lr  - 0: получить "левую" часть (по умолчанию), 1: получить "правую часть"
' sep - разделитель левой и правой части, по умолчанию - пробел
'      если во входном значении несколько разделителей, раздел пройдет
'      по первому из них

  If a Is Nothing Or a.Value2 = "" Then Exit Function

' *** вариант 1
  Dim k%

  k = InStr( 1 , a.Value2, sep)

  If k =  0  Then
    LeftRight = a.Value2
  ElseIf lr =  0  Then
    LeftRight = Left$(a.Value2, k -  1 )
  Else
    LeftRight = Mid$(a.Value2, k + Len(sep))
  End If


' *** вариант 2
'  Dim arr
'
'  arr = Split(a.Value2, sep)
'  If lr > 1 Then lr = 1
'  On Error Resume Next
'  LeftRight = arr(lr)
'  On erro GoTo 0
'  Erase arr

End Function

' формула для ячейки B1: =LeftRight(A1;0;"x")
' формула для ячейки C1: =LeftRight(A1;1;"x")