Dim xBase As Integer xBase = Process.GetProcessesByName("S4Client")(0).MainModule.BaseAddress.ToInt32()
WriteLong(xBase + &H12345678, 123456) 'Address, Value