File layout for the random file in Exercise 10.4

Private Type udtFriend
    strName                 As String * 25
    strPhoneNumber          As String * 14
    strPager                As String * 14
    strCellPhone            As String * 14
    strVoiceMail            As String * 14
    strEmail                As String * 30
    strFriendCode           As String * 4
    strDeleteCode           As String * 1   'D = deleted; A = active
End Type