データの入力時に、「今日の日付」を入力する例です。
日付を入力する列は、あらかじめ、書式設定を「日付」にしておいて下さい。

[ポイント]
Worksheets("単語帳").Cells(myRow, "B").Value = Date

Private Sub CommandButton1_Click()



Worksheets("単語帳").Select


'入力する行を取得する。
myRow = Worksheets("単語帳").Cells(65536, "B").End(xlUp).Row + 1

Worksheets("単語帳").Cells(myRow, "B").Value = Date '日付を入力
Worksheets("単語帳").Cells(myRow, "C").Value = TextBox1.Text '単語を入力
Worksheets("単語帳").Cells(myRow, "D").Value = TextBox2.Text '意味を入力



TextBox1.Text = "" 'テキストボックスの内容をクリアする
TextBox2.Text = ""




End Sub