I have a problem with put.

I'm trying to modify an offset using put but it doesn't work.

Private Sub Command5_Click()
Dim Value1, Value2 As Byte
Value1 = 62
Value2 = 64
Open LieroPath For Binary As #1
Put #1, &H10FD2, Value1
Put #1, &H1106F, Value1
Put #1, &H110D3, Value1
Put #1, &H11069, Value2
Put #1, &H110CD, Value2
Close #1
End Sub

What did I do wrong?