Private Type FieldType
    Type As String
    TexPath As String
    MoveDir As Byte
    Animations As Byte
End Type
 
Private Type LevelInfo
    lName As String
    picBack As String
    Field(32, 22) As FieldType
End Type
 
Private Sub Form_Load()
  Dim lIfn As LevelInfo
  lIfn.Field(0, 0).Type = "Lordchen"
  lIfn.Field(1, 0).Type = "VB@RCHIV"
  MsgBox lIfn.Field(0, 0).Type
  MsgBox lIfn.Field(1, 0).Type
End Sub