Saving, PLEASE HELP!!!

[Arcom]

Or you can save the data in a binary file. Each character could have it's variables in a UDT.

' Type for storing character's data
Public Type Character_Values
        cvLife As Integer
        cvHealth As Integer
        cvName As String
        ' etc., etc.
End Type
' Array of characters
Public udtChar() As Character_Values


Public Sub SaveGame()
' Save a game to a file

Dim ff As Integer, lNum As Long
ff = FreeFile

Open App.Path & "\game.dat" For Binary As #ff
        ' How many characters are there?
        lNum = UBound(udtChar)
        Put #ff, , lNum
        ' Save data
        Put #ff, , udtChar()
Close #ff
End Sub

Public Sub LoadGame()
' Load a game from a file

Dim ff As Integer, lNum As Long
ff = FreeFile

Open App.Path & "\game.dat" For Binary As #ff
        ' # of chars...
        Get #ff, , lNum
        ' Resize arrary and load data
        Redim udtChar(lNum)
        Get #ff, , udtChar()
Close #ff
End Sub