Editing XML File through VP App

So, I'm making an App for my software class, it's an ATM. It starts off with a form, where you enter the PIN into the textbox, and it checks against the XML file, and if it's correct, it lets you in.

Code:

Private Sub btnPINENTER_Click(sender As Object, e As EventArgs) Handles btnPINENTER.Click

    Dim AccountPIN As Integer

    Dim AccountName As String

    Dim InputPIN As Integer = Val(txtPIN.Text)

    Dim xelement As XElement = XElement.Load("Accounts.xml")
    Dim Records As IEnumerable(Of XElement) = xelement.Elements()

    For Each Account In Records
        AccountPIN = (Account.Element("PIN").Value)
        AccountName = (Account.Element("Name").Value)

        If InputPIN = AccountPIN Then

            MsgBox("Correct Password" & vbNewLine & "Welcome" & AccountName)
            Me.Hide()
            FrmATM.Show()
            txtPIN.Text = ""

        End If
    Next Account
End Sub