Option Explicit On 'this says i must declare as a variable before i can use it

Public Class Form1
    'Global Variables
    Dim decFirstNumber As Decimal
    Dim decSecondNumber As Decimal
    Dim decthirdNumber As Decimal
    Dim decforthNumber As Decimal
    Dim decfifthNumber As Decimal
    Dim decsixthNumber As Decimal
    Dim decseventhNumber As Decimal
    Dim deceighthNumber As Decimal
    Dim decTotal As Decimal
    Dim SaveMyFile As String
    Dim Savelocation As String

    Private Sub butLOAD_Click(sender As Object, e As EventArgs) Handles butLOAD.Click

        'load the saved data
        ' Call ShowDialog.
        Dim a = New OpenFileDialog()
        Dim result As DialogResult = a.ShowDialog()

        ' Test result.
        If result = DialogResult.OK Then
            Try
                SaveMyFile = My.Computer.FileSystem.ReadAllText(a.FileName)
                Dim number = SaveMyFile.Split(",")
                TxtGBP.Text = number(0)
                txtUSD.Text = number(1)
                txtEUR.Text = number(2)
                txtYUAN.Text = number(3)
                txtCAD.Text = number(4)
                txtAUS.Text = number(5)
                txtBIT.Text = number(6)
                txtMEX.Text = number(7)
            Catch ex As Exception
                MsgBox("Could not open the file due to the following error:" & vbCrLf & ex.Message)
            End Try
        End If
    End Sub

    Private Sub butSAVE_Click(sender As Object, e As EventArgs) Handles butSAVE.Click
        'Inputs
        decFirstNumber = Val(TxtGBP.Text)
        decSecondNumber = Val(txtUSD.Text)
        decthirdNumber = Val(txtEUR.Text)
        decforthNumber = Val(txtYUAN.Text)
        decfifthNumber = Val(txtCAD.Text)
        decsixthNumber = Val(txtAUS.Text)
        decseventhNumber = Val(txtBIT.Text)
        deceighthNumber = Val(txtMEX.Text)
        'Processing


        SaveMyFile = decFirstNumber & "," & decSecondNumber & "," & decthirdNumber & "," & decforthNumber & "," & decfifthNumber & "," & decsixthNumber & "," & decseventhNumber & "," & deceighthNumber & ""

        'Outputs
        MsgBox(SaveMyFile) 'shows the outputs

        ' Call ShowDialog.
        Dim a = New SaveFileDialog()
        Dim result As DialogResult = a.ShowDialog()

        ' Test result.
        While True
            If result = DialogResult.OK Then
                Try
                    My.Computer.FileSystem.WriteAllText(a.FileName, SaveMyFile, False)
                    Exit While
                Catch ex As Exception
                    MsgBox("Could not save file due to the " & "following error" & vbCrLf & ex.Message)
                End Try
            End If
            MsgBox("fu")
        End While
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        LinkLabel1.LinkVisited = True
        System.Diagnostics.Process.Start("https://www.xe.com/currency/gbp-british-pound?r=")
    End Sub
End Class