VBA Find String before specific character in string

Small change:

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