Option Explicit
Dim m(40) As CMLA2PDB_UserInfo


Private Type CMLA2PDB_UserInfo
 NickName As String * 16 '0
 PlayerName As String * 16 '1
 Phone As String * 16 '2
 Age As Integer '3
 Level As Integer '4
 Class As String * 32 '5
 Helmet As String * 32 '6
 Upper As String * 32 '7
 Lower As String * 32 '8
 Gloves As String * 32 '9
 Boots As String * 32 '10
 LeftHand As String * 32 '11
 RightHand As String * 32 '12
 Head As String * 32 '13
 Necklare As String * 32 '14
 Earring1 As String * 32 '15
 Earring2 As String * 32 '16
 Ring1 As String * 32 '17
 Ring2 As String * 32 '18
 Future As String * 526 '19
End Type

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, _
pSrc As Any, ByVal ByteLen As Long)


Private Sub ReadDB(tInfo() As CMLA2PDB_UserInfo)

 Dim bInfo(40) As CMLA2PDB_UserInfo
 
 CopyMemory ByVal VarPtr(bInfo(0)), ByVal VarPtr(tInfo(0)), Len(bInfo(0)) * CLng(40)
 
 MsgBox bInfo(0).Age
 'проверяем
End Sub
Private Sub Command1_Click()
 m(0).Age = 40
 ReadDB m
End Sub