Return last day of month based a var

[sal21]

I have thsi MyVar="01_2012"

Ho to return the last day of this mont_year and assign to:

VarDAY="31"
VarMonth="01"
VarYear="2012"

[HansV]

Dim dtm As Date
Dim m As Long
Dim y As Long
m = Split(MyVar, "_")(0)
y = Split(MyVar, "_")(1)
dtm = DateSerial(y, m + 1, 0)
VarDay = Format(dtm, "dd")
VarMonth = Format(dtm, "mm")
VarYear = Format(dtm, "yyyy")

[sal21]

Dim dtm As Date
Dim m As Long
Dim y As Long
m = Split(MyVar, "_")(0)
y = Split(MyVar, "_")(1)
dtm = DateSerial(y, m + 1, 0)
VarDay = Format(dtm, "dd")
VarMonth = Format(dtm, "mm")
VarYear = Format(dtm, "yyyy")