[Module].BaseAddress in a 64bit process

                Dim BasePointerAdress As Int64
                Try
                    If Process.GetProcessesByName("RainbowSix").Length <> 0 Then
                        For Each [Module] As ProcessModule In Process.GetProcessesByName("RainbowSix")(0).Modules
                            If [Module].ModuleName = "RainbowSix.exe" Then
                                BasePointerAdress = [Module].BaseAddress.ToInt64()
                            End If
                        Next
                        ...
                    Else

                    End If

                    Dim RealAddress As UInteger = ReadMemory(Of Integer)(BasePointerAdress) + &H4741BD0
                    RealAddress = ReadMemory(Of Integer)(RealAddress) + &H928
                    RealAddress = ReadMemory(Of Integer)(RealAddress) + &H0
                    RealAddress = ReadMemory(Of Integer)(RealAddress) + &H148
                    RealAddress = ReadMemory(Of Integer)(RealAddress) + &HD0
                    RealAddress = ReadMemory(Of Integer)(RealAddress) + &HFC

                    WriteMemory(Of Integer)(RealAddress, 99)

 ReadProcessMemory(csgo_process(0).Handle, client_dll_base + LocalPlayer_offset, pointer_to_localplayer, 8, 0)
            ReadProcessMemory(csgo_process(0).Handle, pointer_to_localplayer + OFFSET1, pointer_to_localplayer, 8, 0)
            ReadProcessMemory(csgo_process(0).Handle, pointer_to_localplayer + OFFSET2, pointer_to_localplayer, 8, 0)
            ReadProcessMemory(csgo_process(0).Handle, pointer_to_localplayer + OFFSET3, pointer_to_localplayer, 8, 0)
            ReadProcessMemory(csgo_process(0).Handle, pointer_to_localplayer + OFFSET4, pointer_to_localplayer, 8, 0)

            ReadProcessMemory(csgo_process(0).Handle, pointer_to_localplayer + Trigger, Trig, 1, 0)