Imports System
 
Public Class Test
   Public Shared Sub Main() 
        Dim intDay As Integer
        intDay = Date.Now.Day
        Console.WriteLine(intDay)
   End Sub
End Class