Problem with jump to cave, always jump wrong help plz!

[Santasgaming]

Code:

1 2 3 4 5 6

Public Function MakeJmp(ByVal lpAddress As Long, ByVal lpJmpAddress As Long, Optional ByVal lpNops As Long = 0) As Long Dim JmpByte As Byte() = {&HE9} MakeJmp = CBool(WriteByte(lpAddress, JmpByte)) And CBool(WriteLong(lpAddress + 1, lpJmpAddress - lpAddress - 5)) If lpNops = 0 Then Exit Function Return MakeJmp End Function

---

This is the function i use here to jump to cave.
But i dont get it to work right i use this in the main module.

I think i maby are missing some declerations , also i thought int32 was only to be used on a 32 bit process. so i have changed my declerations to int64 and also tried to change them to long but still it makes the jump wrong.