Imports System

Public Module DATATypes Demostration

    Public Sub Main()

        Dim password as String = "8uplands"

        Dim myChar as Char = ‘T’

        Dim myScore as Integer = 999

        Dim  myBirthday As Date = #12/16/2012#

        Dim  isLoggedIn as Boolean = False  

        Const winScore = 1000

        Dim myAccount as Decimal =23.2956

        Dim myBalance as Double =76.55

    End Sub

End Module