フィルタオプションは、シート上に検索条件が必要です。フォームの内容を、シートに転記してから、アドバンスフィルタを実行します。

[ポイント]
シートに検索条件を転記
Worksheets("単語帳").Cells(4, "C").Value = TextBox1.Text

Private Sub CommandButton1_Click()

'シートに検索条件を転記
'部分一致検索は、検索条件を「*」で囲む
Worksheets("単語帳").Cells(4, "C").Value = "*" & TextBox1.Text & "*"


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

End Sub