File layout for random file in Exercise 10 VBMail

Private Type udtCustomer
    strCustomerId           As String * 4
    strLastName             As String * 15
    strFirstName            As String * 15
    strAddress              As String * 20
    strCity                 As String * 15
    strState                As String * 15
    strZipCode              As String * 10
    strCustomerCode         As String * 4
    strDeleteCode           As String * 1   'D = deleted; A = active
End Type