accessibility variablename [As datatype][= initialvalue]
Dim decPrice As Decimal
Private mblnDataOk As Boolena = True
