[ポイント]
・「<>」　・・・　〜でははない

Private Sub CommandButton1_Click()

'「<>」は「〜ではない」という意味。
Worksheets("単語帳").Cells(4, "C").Value = "<>*" & ComboBox1.Text & "*"

'検索を実行
Range("B9:D109").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("C3:C4"), Unique:=False

End Sub