Goals(1) = New Tile()

[bplus]

```Dim Shared row, col As Integer
Dim Shared levelMap(1 To 12) As String
Dim Shared tileSymbol As String

Sub LoadLabel (numLevel)
    ' ??µ??????a ???t? t?? pa????d???
    levelMap(1) = "    ############ "
    levelMap(2) = "    #          # "
    levelMap(3) = "    #          # "
    levelMap(4) = "    #    $$    # "
    levelMap(5) = "    #  $  $  # "
    levelMap(6) = "    #    $$    # "
    levelMap(7) = " ###############"
    levelMap(8) = "#              #"
    levelMap(9) = "#              #"
    levelMap(10) = "#              #"
    levelMap(11) = "#              #"
    levelMap(12) = "############### "

    ' ??as??ste t?? ???t? ?a? ???ste ta ?a?a?t???st??? t?? p?a??d???

    For row = 1 To MapHeight ' <<<<<<<<<<<<<<<<<<<<<<< what is MapHeight?
        For col = 1 To MapWidth ' <<<<<<<<<<<<<<<<<<<<<< what is MapWidth
            tileSymbol = Mid$(levelMap(row), col, 1)

            MapTiles(col, row).Symbol = tileSymbol  ' what is .Symbol ? no type definition given
            MapTiles(col, row).IsBox = 0            ' what is .IsBox ? no type definition given
            MapTiles(col, row).IsGoal = 0            ' what is .IsGoal ? no type definition given

            If tileSymbol = "$" Then
                MapTiles(col, row).IsBox = 1
            ElseIf tileSymbol = "." Then
                MapTiles(col, row).IsGoal = 1
            End If
        Next col
    Next row
End Sub```

```
MapTiles(col, row).Symbol = tileSymbol  ' what is .Symbol ? no type definition given
MapTiles(col, row).IsBox = 0            ' what is .IsBox ? no type definition given
MapTiles(col, row).IsGoal = 0            ' what is .IsGoal ? no type definition given```
This kind of stuff needs a UDT = User Defined Type which is what people tried to show you in posts above.