Как сохранить значения переменных в файл ? - VB

Dim temp As Man
With temp
    .X = 10
    .Y = 10
    .Speed = 5
    .Health = 100
    .Power = 1
    .Name = 'Unnamed'
End With
Dim fh As Long
fh = FreeFile
Open 'C:save.dat' For Binary As fh
Put #fh, , temp
Close fh