Teleport Code????

IS THIS RIGHT CODE CUZ WHEN I PRESS CTRL + 6 IT TELEPORTS TO OUT OF MAP??

If GetKeyPress(vbKeyControl) Then
If GetKeyPress(vbKey6) Then
Dim tele1 As Long
Dim tele2 As Long
Dim tele3 As Long
Dim tele4 As Long
Dim tele5 As Long
Dim tele6 As Long
Call ReadALong("WarRock", &H8B5288, tele1)
Call ReadALong("WarRock", &H8B5288, tele3)
Call ReadALong("WarRock", &H8B5288, tele5)
tele2 = tele1 + &H17C
tele4 = tele3 + &H184
tele6 = tele5 + &H180
Call WriteALong("WarRock", tele2, 2000)
Call WriteALong("WarRock", tele4, 2000)
Call WriteALong("WarRock", tele6, 100)
End If
End If

man wtf i don't even know where to start... u effed up... someone else can tell you