Только для S & G пользовательская функция с регулярным выражением
Option Explicit
Public Sub TEST()
Dim tests(), i As Long
tests = Array("apple", "banana (yellow)", "zucchini (green)")
For i = LBound(tests) To UBound(tests)
Debug.Print GetString(tests(i))
Next
End Sub
Public Function GetString(ByVal inputString As String) As String
With CreateObject("VBScript.RegExp")
.Global = True
.MultiLine = True
.Pattern = "^\S*"
If .TEST(inputString) Then
GetString = .Execute(inputString)(0)
Else
GetString = vbNullString
End If
End With
End Function
Regex:
Попробуйте здесь
^ устанавливает позицию в начале строки
\ S * соответствует любому непробельному символу (равному [^ \ r \ n \ t \ f \ v])
* Квантификатор - сопоставляет от нуля до неограниченного числа раз столько раз, сколько возможно, возвращая при необходимости (жадный)
Лист: