Imports System
 
Public Class Test
	Public Shared Sub Main()
		dim EndDate as new datetime
		EndDate = convert.todatetime("10/08/2014")
		dim BillStart as new datetime
		Dim TrialNextMonthDate As DateTime = DateAdd(DateInterval.Month, 1, EndDate)
        BillStart = DateSerial(TrialNextMonthDate.Year, TrialNextMonthDate.Month, 1)
        console.writeline(trialnextmonthdate.tostring)
        console.writeline(billstart.tostring)
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlkaW0gRW5kRGF0ZSBhcyBuZXcgZGF0ZXRpbWUKCQlFbmREYXRlID0gY29udmVydC50b2RhdGV0aW1lKCIxMC8wOC8yMDE0IikKCQlkaW0gQmlsbFN0YXJ0IGFzIG5ldyBkYXRldGltZQoJCURpbSBUcmlhbE5leHRNb250aERhdGUgQXMgRGF0ZVRpbWUgPSBEYXRlQWRkKERhdGVJbnRlcnZhbC5Nb250aCwgMSwgRW5kRGF0ZSkKICAgICAgICBCaWxsU3RhcnQgPSBEYXRlU2VyaWFsKFRyaWFsTmV4dE1vbnRoRGF0ZS5ZZWFyLCBUcmlhbE5leHRNb250aERhdGUuTW9udGgsIDEpCiAgICAgICAgY29uc29sZS53cml0ZWxpbmUodHJpYWxuZXh0bW9udGhkYXRlLnRvc3RyaW5nKQogICAgICAgIGNvbnNvbGUud3JpdGVsaW5lKGJpbGxzdGFydC50b3N0cmluZykKCUVuZCBTdWIKRW5kIENsYXNz