VBA Find String before specific character in string

Hi, thanks for the response, i have tried to adapt the code provided but can't seem to get it work, the textbox can contain any string prior to " - " so will not always be Action Alert, so need a more dynamic code. Here is my code below:

    If Me.TextBox1.Value <> "" Then
        Me.ComboBox1.Value = Trim(Split(ActiveCell.Row, "F", " - ")(0))
    End If

If my textbox does not equal nothing then my combobox should equal the string before " - " in Column F in the active cell row. For example if my active cell is D5 and in F5 there is a string which is REF1234 - Delivered then the combobox would equal "REF1234"