New Write Function:
New WriteLong Function:
Simple enough
.
Or just convert it to byte/2-bytes/4-bytes
. 
Code:
Private Sub Write(Address As Integer, Value As Long)
Dim Buffer As Byte() = BitConverter.GetBytes(Value)
Dim Zero As IntPtr = IntPtr.Zero
WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
End Sub
Code:
Public Sub WriteLong(Address As Integer, Value As Long)
Write(Address, Value)
End Sub
.Or just convert it to byte/2-bytes/4-bytes
. 
