Type Ledger
Number As Integer
Description As String
Debit As Currency
Credit As Currency
Balance As Currency End Type Sub typeDemo() Dim ledgerRow As Ledger
ledgerRow.Number = 1001
ledgerRow.Description = "Rent"
ledgerRow.Debit = 750
ledgerRow.Balance = ledgerRow.Balance - ledgerRow.Debit End Sub