Here it is, next step is to handle the errors if the file doesn't exist:

Public Class Form1

'Declare All Variables Needed for the File IO, these must be public
Dim CurrentFile As String
Dim FileRead As String
Dim FileSec As String
Dim VarPos As Integer
Dim VarLen As Integer
Dim TagStart As String = Chr(1)
Dim VarStart As String = Chr(2)
Dim VarStop As String = Chr(3)
Dim i As Integer 'can be shared by all other processes

'Declare All FilePaths, these should be public
Dim TestFile As String = "D:\Games\MAME\RLFU\test.txt"

'Declare Test Variables, all saveable variables must be public string arrays
Dim VarInt(1) As String
Dim ArrayInt(5) As String


Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

'Assign Variable Names to (0) place for all saveable variables, this is very important
VarInt(0) = "VarInt"
ArrayInt(0) = "VarArray"

End Sub


Private Sub Read(ByRef Var) 'File Read Sub, Copy Exactly

For i = 1 To UBound(Var)
VarPos = FileRead.IndexOf(TagStart & Var(0) & i & VarStart)
FileSec = FileRead.Substring(VarPos)
VarPos = FileSec.IndexOf(VarStart) + 1
VarLen = FileSec.IndexOf(VarStop) - VarPos
Var(i) = FileSec.Substring(VarPos, VarLen)
Next

End Sub


Private Sub Write(ByRef Var) 'File Write Sub, Copy Exactly

Dim i As Integer
For i = 1 To UBound(Var)
My.Computer.FileSystem.WriteAllText(CurrentFile, TagStart & Var(0) & i & VarStart & Var(i) & VarStop & ControlChars.NewLine, True)
Next

End Sub


Private Sub LoadTestFile() 'Sample Sub for loading all variables associated with a file

'Set file to load as CurrentFile
CurrentFile = TestFile

'Load the file into FileRead, this is very important
FileRead = My.Computer.FileSystem.ReadAllText(CurrentFile)

'Load the desired variables from the file
Read(VarInt)
Read(ArrayInt)

'Remove data from FileRead and FileSec
FileRead = ""
FileSec = ""
'This is useful for performance, as these variables can get very large

End Sub


Private Sub SaveTestFile() 'Sample Sub for saving all variables associated with a file

'Set file to save as CurrentFile
CurrentFile = TestFile

'Reset the file for rewrite, this is very important
My.Computer.FileSystem.DeleteFile(CurrentFile)

'Save the desired variables to the file
Write(VarInt)
Write(ArrayInt)

End Sub


Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

'Test button which assigns user-defined values and saves them
VarInt(1) = txtVarIntSave.Text
ArrayInt(1) = txtArrayIntSave1.Text
ArrayInt(2) = txtArrayIntSave2.Text
ArrayInt(3) = txtArrayIntSave3.Text
ArrayInt(4) = txtArrayIntSave4.Text
ArrayInt(5) = txtArrayIntSave5.Text
SaveTestFile()

End Sub


Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click

'Test button which loads the saved values and displays them
LoadTestFile()
txtVarIntLoad.Text = VarInt(1)
txtArrayIntLoad1.Text = ArrayInt(1)
txtArrayIntLoad2.Text = ArrayInt(2)
txtArrayIntLoad3.Text = ArrayInt(3)
txtArrayIntLoad4.Text = ArrayInt(4)
txtArrayIntLoad5.Text = ArrayInt(5)

End Sub


Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click

'Test button which sums the variables at any point
'to check that they can operate correctly as integers
For i = 1 To 5
VarInt(1) = CInt(VarInt(1)) + CInt(ArrayInt(i))
Next
txtCheck.Text = VarInt(1)

End Sub

End Class