Structure Money Private centsAmount As Integer Public Sub New(ByVal amount As Double) Me.centsAmount = CInt(amount * 100) End Sub End Structure Module MyModule Sub Main() Dim freebie As Money Dim carPrice As Money = New Money(3.95) End Sub End Module