Imports PackageIO
Imports System.IO
Public Class Form1
    Dim Filepath As String
    Dim money As String
    Dim Offset As String = Nothing

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim open As New OpenFileDialog
        open.Title = "Open your Save"
        open.ShowDialog()
        Filepath = open.FileName
        ReadFile()
    End Sub

    Private Sub ReadFile()
        Try
            Dim reader As New PackageIO.Reader(Filepath, Endian.Little)
            TextBox1.Enabled = True
            Button2.Enabled = True
            reader.Position = &H10
            TextBox1.Text = reader.ReadInt32
            Offset = (reader.ReadInt32 + &HF6292)
            reader.Position = (Offset + &HF6293)
            TextBox2.Text = reader.ReadInt32


        Catch ex As Exception
            MessageBox.Show("Save Game Is Corrupted or Not A Xenoblade Chronicles 2 Save")
            TextBox1.Enabled = False
            Button2.Enabled = False
        End Try
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Try
            Dim Writer As New PackageIO.Writer(Filepath, Endian.Little)
            Writer.WriteInt32(TextBox1.Text)
            Writer.Position = &H10
            Writer.WriteInt32(TextBox1.Text)
            MsgBox("File Successfully Saved Make Sure To Rehash And Resign With The Tool or Horizion")
        Catch ex As Exception
            MsgBox("Saved Game Could Not Be Saved", MsgBoxStyle.OkOnly, "Please Try Again or Try A Diffrent Save")
        End Try
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class