過去に数度ご教授頂いた事が有ります。
その節は大変お世話になりました。
また 教えて頂きたいのですが、
パソコンの内臓カレンダーを利用して、
（利用しなくても良いですが）
本日より 数年後まで 年月日を連続で発生させたいのですが、
ヒントさえ見つからず困難しています。
どなたかご教授宜しくお願い致します。

> ヒントさえ見つからず困難しています。
本気で言ってるの？それとも調べる気が無いだけ？
ボクには後者のように感じられました。

このサイトの[日付・時刻・関係]に分類されている
全てのサンプルに目を通すくらいもしないの？？？

一応目を通しそこに乗っている関数をヘルプで調べましたが、
うまく出来ませんでした。
こんなのも作ったのですが、
---------------------------------------------
Private Sub Command1_Click()
Text1.Text = DateAdd("d", 1, 2006 / 8 / 31)
End Sub
---------------------------------------------
返されたのが 1900/01/08 2:07:45 でした。
どの関数を使えばよいのでしょうか

> Text1.Text = DateAdd("d", 1, 2006 / 8 / 31)

ここのサンプルはそのような設定になっていないはずですが？

http://hanatyan.sakura.ne.jp/vbhlp/Hi_hihenkan.htm#siteihi

　Text1.Text = DateAdd("d", 1, "2006/8/31")

2006 / 8 / 31 = 2006 ÷ 8 ÷ 31
= 8.0887...
…を日付に変換してるねぇ。
日付型は 1900/1/1 が基準で数値部分が日数だっけ？
詳しくはヘルプで日付型を調べてください。
> 返されたのが 1900/01/08 2:07:45 でした。
ま、そんなもんでしょ。それで関数としては正常な
処理結果だね？。ヘルプで使い方を調べていない
プログラマの問題です。

ってゆーかサンプル見てるなら
> ヒントさえ見つからず困難しています。
ウソじゃん。…平気でウソをつく人が増えたなぁ…
自分のやったことは少しでも伝える努力を
したほうがいいねぇ。
↓もう一回読み直したら？
http://hanatyan.sakura.ne.jp/hazimeni.htm

るしぇさん誠に申し訳御座いませんでした。
別に嘘をつくつもりはなかったのですが、
どうしても結果が思うようにならなかったので、
オーバーな表現になってしまいました。
どうかお許しをお願い致します。
尚 花ちゃんさん、るしぇさん有難う御座いました。
ご親切な指導のおかげで、解決できました。
本当に有難う御座いました。
これに懲りずこれからも宜しくお願い致します。
有難う御座いました。