File layout for random file in Exercise 10 VBonanza

Private Type udtVideo
    strMovieNumber          As String * 5
    strTitle                As String * 25
    strStudioID             As String * 5
    strCategory             As String * 15
    intLength               As Integer
    strVideoCode            As String * 4
    strDeleteCode           As String * 1   'D = deleted; A = Active
End Type