『VBAで第二木曜日』（koko）

以前「第二火曜日」の求め方を教えていただきましたが、VBAのコードだけで「第二木曜日」を求めるにはどうすればいいのでしょうか？VBAでMOD関数を使うにはどの様に記述すればいいのか分かりません。どなたか御教授願えないでしょうか？よろしくお願いいたします。

----
 VBAでMODワークシート関数は使えないので、Mod演算子を使います。　（りな）
 
 Sub tttt()
    MsgBox 10 Mod 3
 End Sub
-------------
りなさんありがとうございます。色々とやってみたのですが、うまくいきません。
=MOD（12-MOD（年&"/"&月,7）,7）+8をVBAで書きたいのですが、
書き換えるとすればどの様に記述すればいいのでしょうか？
よろしくお願いします。
----
 A1セルに年、Bセルに月の数値が入力してあるとします。
Sub test()
Dim myDate As Date, myDay As Integer
    myDate = DateSerial(Cells(1, 1).Value, Cells(1, 2).Value, 1)
    myDay = ((12 - (myDate Mod 7)) Mod 7) + 8
    Cells(1, 3).Value = myDay
End Sub
　
これで、A3セルに「13」が表示されます。　(マーヤ)
----------------------
マーヤ様ありがとうございます。毎月の第二木曜日が必要だったので
Sub test()
Dim myDate As Date, myDay As Integer
    myDate = DateSerial(Year(Now()), Month(Now()), 1)
    myDay = ((12 - (myDate Mod 7)) Mod 7) + 8
    MsgBox "今月の第二木曜日は" & myDay & "日です。"
End Sub
とさせていただきました。大変助かりました。感謝！感謝！です。
もっともっとエクセルを勉強したいと思います。これかも、よろしくお願い致します。m(__)m(koko)