Private Sub HandleRetroceder()
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modification: 08/09/2012 - ^[GS]^
'***************************************************
    #If Testeo = 1 Then
        Debug.Print Now & " - IN: HandleRetroceder"
    #End If

    If incomingData.length < 3 Then
        Err.Raise incomingData.NotEnoughDataErrCode
        Exit Sub
    End If

    Dim X As Integer, Y As Integer

    'Remove packet ID
    Call incomingData.ReadByte

    'Remove char from old position
    Call Map_RemoveOldUser

    '// Seteamos la Posicion en el Mapa
    X = (incomingData.ReadByte - 1)
    Y = (incomingData.ReadByte - 1)

    Select Case CharList(UserCharIndex).Heading

        Case E_Heading.NORTH

            UserPos.Y = UserPos.Y + Y

        Case E_Heading.EAST

            UserPos.X = UserPos.X + X

        Case E_Heading.SOUTH

            UserPos.Y = UserPos.Y + Y

        Case E_Heading.WEST

            UserPos.X = UserPos.X + X

    End Select

    MapData(UserPos.X, UserPos.Y).CharIndex = UserCharIndex
    CharList(UserCharIndex).Pos = UserPos

    'Update pos label
    Call Char_UserPos

End Sub