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

[bushmobile]

first thing to do is to get rid of On Error Resume Next, then see what your code does.

[Hack]

first thing to do is to get rid of On Error Resume Next, then see what your code does.

Once you have gotten rid of it, never put it back.