acheiving urber speed question.

[genusis]

OK I think I got everything there ,but

Code:

Max_Classes = Val(GetVar(FileName, "INIT", "MaxClasses"))

so far it looks like this for me.

Code:

Sub LoadClasses()
Dim FileName As String
Dim i As Long
Dim nFileNum As Integer

nFileNum = FreeFile
    Open FileName For Binary As #nFileNum
    Call CheckClasses
    
    FileName = App.Path & "\data\classes.bin"
    
    Max_Classes = Val(GetVar(FileName, "INIT", "MaxClasses"))
    
    ReDim Class(0 To Max_Classes) As ClassRec
    
    Call ClearClasses
    
    For i = 0 To Max_Classes
    Get #nFileNum, , Class(i).Name
    Get #nFileNum, , Class(i).Sprite
    Get #nFileNum, , Class(i).STR
    Get #nFileNum, , Class(i).DEF
    Get #nFileNum, , Class(i).SPEED
    Get #nFileNum, , Class(i).MAGI
        'Class(i).Name = GetVar(FileName, "CLASS" & i, "Name")
        'Class(i).Sprite = GetVar(FileName, "CLASS" & i, "Sprite")
        'Class(i).STR = Val(GetVar(FileName, "CLASS" & i, "STR"))
        'Class(i).DEF = Val(GetVar(FileName, "CLASS" & i, "DEF"))
        'Class(i).SPEED = Val(GetVar(FileName, "CLASS" & i, "SPEED"))
        'Class(i).MAGI = Val(GetVar(FileName, "CLASS" & i, "MAGI"))
        
        DoEvents
    Next i
End Sub

So how would I change

Code:

Max_Classes = Val(GetVar(FileName, "INIT", "MaxClasses"))