>>856
予備知識
　『2000年問題』
　　　年を下2桁でプログラムを組んでしまった為に2000年を1900年と
　　　勘違いをしてしまう問題。

それを踏まえて
　VisualBasic6.0（2000年頃　下は、あるVBのホームページより）
　　　Private Sub Command1_Click()

　　'月末を取得したい日付
　　Dim dat As Date

　　dat = Text1.Text

　　'月末を取得する
　　Dim endDate As Date

　　'1.翌月の月初を求める
　　endDate = Format(DateAdd("m", 1, dat), "yyyy/mm/01")
　　'2.月初の1日前は月末
　　endDate = DateAdd("d", -1, endDate)

　　MsgBox Text1.Text & "の月末は" & endDate & "です"
　　　End Sub