Help with weapon hack

is that the code right now, with the adresses

Private Sub Command1_Click()
Timer1.Interval = 1
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Dim b00m As Long
Dim b00m1 As Long
Call BRPDFIKRS("Warrock", &H4C, b00m)
b00m11 = b00m + &H4C
Call BRPDIKFRS("Warrock", b00m1, Text1.Text)
End Sub