Private Sub DateSerial_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateSerialTest.Click
Dim testDate As Date = New Date
Dim strDate As String = "20130320"
Dim newDate As Date = Nothing
Dim dsDate As Date = Nothing
Dim yyyyMMdd As String = ""
yyyyMMdd = strDate.Substring(0, 4) & "/" & strDate.Substring(4, 2) & "/" & strDate.Substring(6, 2)
newDate = CType(yyyyMMdd, Date)
dsDate = DateSerial(Year(newDate), Month(newDate) + 1, 0)
MsgBox(dsDate.Year & "_" & dsDate.Month & "_" & dsDate.Day)
End Sub