Public Sub SavePlayer(ByVal Index As Long)
Dim FileName As String


    FileName = "\data\accounts\" & Trim$(Player(Index).Login) & ".ini"

    PutVar App.path & FileName, Trim$(Player(Index).Login), "Login", Player(Index).Login
    PutVar App.path & FileName, Trim$(Player(Index).Login), "Login", Player(Index).Name
    ' Etc.

End Sub

Public Sub LoadPlayer(ByVal Index As Long)
Dim FileName As String


    FileName = "\data\accounts\" & Trim$(Player(Index).Login) & ".ini"

    GetVar App.path & FileName, Trim$(Player(Index).Login), Player(Index).Login
    ' Etc.

End Sub