VBA Find String before specific character in string

Hi all,

I have a ComboBox which upon UserForm initialize should search a a TextBox and always find the string before " - ". The Textbox will either be empty or always have a string of text in it separated by " - ". For example if the TextBox has "Action Alert - Imminent Due Date". Upon UserForm opening the ComboBox will populate with Action Alert as it has found all string before " - ".

This is so that the ComboBox will find any string, no matter how short or long before " - ".

Here is my code so far:

    If Me.TextBox1.Value <> "" Then
        Me.DropBox.Value = "CODE HERE"
    End If

Check this;

Sub Test()
    myStr = "Action Alert - Imminent Due Date"
    MsgBox Trim(Split(myStr, "-")(0))
End Sub

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"

Small change:

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

Hi Rorya, thanks for the help, this worked perfectly, now how would i do the opposite if i wanted the code to find all string after "-"?

Nevermind i just figured it out! Many thanks for your help. Marked as resolved and rep added