RTE: 91

[aaaron]

[FIXED]

[crzyone9584]

Post the entire sub that is giving the error.

[aaaron]

```
Private Sub HandleMapKey(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim n As Long
Dim x As Long
Dim y As Long
Dim Buffer As clsBuffer

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    x = Buffer.ReadLong
    y = Buffer.ReadLong
    n = Buffer.ReadByte
    TempTile(x, y).DoorOpen = n

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "HandleMapKey", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub
```

[bloodless]

This has been fixed now :)
He didnt compile it.. lolfail