Type/With prob

I can't get this to work. The compiler err is shown in Form_Load. I want to write this to a relative file so I can run my hex-editor to take a peek at it.

'--------------------- in .BAS
 Public Type TP
    ln As Long  ' len of this whole thing
    Tstr As String
    Tlng As Long
    Tint As Integer
  End Type

  Global Rec As TP

'---------------------- in .FRM
Private Sub Form_Load()

  With Rec
    .ln = Len(Rec)
    .Tstr = "ABC"
    .Tlng = 1
    .Tint = 2
  End With

  A$ = Rec  ' <=== type mismatch err
  FR = FreeFile
  Open "TYP.DAT" For Random Access Read Write As #FR Len = 50

  Put #FR, 1, A$
  Close FR
End Sub

Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Lee W, MVPTechnology and Business Process AdvisorCommented:
Don't use $ - what happens?  $ is typically considered a string type - but Rec is a TP type, not a string type.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
shifty12Author Commented:
I'm gonna try changing the PUT to use Rec instead of A$, might work. One way or another, I have to get this Type out to a relative file.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.