HELP ME!!!

Public Function BaseAddress(Module_Name As String) As Integer
        Try
            If System.Diagnostics.Process.GetProcessesByName(GameProc).Length <> 0 Then
                For Each ModuX As System.Diagnostics.ProcessModule In System.Diagnostics.Process.GetProcessesByName(GameProc)(0).Modules
                    If ModuX.ModuleName = Module_Name Then
                        Return ModuX .BaseAddress.ToInt32()
                    End If
                Next
                Return 0
            Else
                Return 0
            End If
        Catch
            Console.WriteLine("Base Address Error")
            Return 0
        End Try
    End Function

WriteInteger(BaseAddress("t6mp") + &H14650, *Value*)