visual basic 6 - code การหาวันที่สิ้นเดือน

Private Sub Command1_Click()
Dim xDate As Date

xDate = DateSerial(Year(Now), Month(Now) + 1, 0)
MsgBox xDate
End Sub