Help with code placement

[totaly]

Hi, wher i tend to use
User(Index).Item(ItemNo) = -1
effects the code.

where it is now, i dont get the msg "you stashed a"
and if i use it at the end then i dont get the last msgbox saying false, and this
might be why its not saving properly.

dont need the msgboxes, just added them to test it.

can somebody help sort it out

Public Sub Sta****em(Index As Integer, ByVal ItemNo As Integer)
On Error Resume Next
 
'MsgBox Item(User(Index).Item(ItemNo)).IName
'MsgBox Item(User(Index).Item(ItemNo)).OnPlayer
 
User(Index).Item(ItemNo) = -1
frmMain.wsk(Index).SendData Chr$(2) & "You just stashed a " & Item(User(Index).Item(ItemNo)).IName & vbCrLf & vbCrLf & Chr$(0)
Item(User(Index).Item(ItemNo)).OnPlayer = False
Call UpdateSingleItem(Index, ItemNo)
Call UpdateGeneralInfo(Index)
 
'MsgBox Item(User(Index).Item(ItemNo)).OnPlayer
 
End Sub