Dim FileOut As Array

        Dim Key As String
        Dim Output As String


        FileOut = My.Computer.FileSystem.ReadAllText("C:\Users\Finla\Documents\Dev\Loop Zoop\Loop Zoop\p059_cipher.txt").Split(",").ToArray()
        For I = 1 To FileOut.Length - 1
            FileOut(I) = Asc(FileOut(I))
        Next

        For I = 1 To FileOut.Length - 1
            For X = 97 To 122
                For Y = 97 To 122
                    For Z = 97 To 122
                        Key = Chr(X) + Chr(Y) + Chr(Z)

                    Next
                Next
            Next
            'Console.WriteLine(FileOut(I))
        Next
    End Sub