File layout for random file in Exercise 10 VBAuto

Private Type udtVehicle
    strInventoryID          As String * 5
    strManufacturer         As String * 15
    strModelName            As String * 15
    strYear                 As Integer
    strVehicleID            As String * 17
    intCostValue            As Integer
    strVehicleCode          As String * 4
    strDeleteCode           As String * 1   'D = deleted; A = active
End Type