Unable to clear combobox content with Backspace

I would like to be able to claer my combobox content by clicking on my backspace key. Right now I am stuck with a partially blue shaded word. please help

Private Sub SComboProj1_Change()
Dim r As Double
Dim rng As String

Worksheets("Sheet1").Activate
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count


For r = 1 To LastRow
rng = "A" & r & ":A" & r
Range(rng).Select

If ActiveCell.Value = SComboProj1.Value Then
GoTo Msg
End If
Next r


Msg:


Worksheets("Sheet1").Activate


SComboClient2.Text = Cells(r, "B")
STxtClientCon.Text = Cells(r, "D")
STxtDate.Text = Cells(r, "C")
STxtDetail.Text = Cells(r, "E")

End Sub