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