Imports System.IO
 
Public ARCHIVOC As String = Application.StartupPath & "\DisGlobosCla.dat"
Public TopClasi(4) As String
 
Dim A As Integer
Using SR As New StreamReader(File.OpenRead(ARCHIVOC))
     For A = 0 To 4
          TopClasi(A) = SR.ReadLine()
     Next A
End Using

Imports System.IO
 
Public ARCHIVOC As String = Application.StartupPath & "\DisGlobosCla.dat"
Public TopClasi(4) As String
Public TextoC As String  ' = Aqui asignamos el Texto Cifrado
Public TextoSC As String  ' = Asignamos el texto sin cifrar (para valores por defecto)
 
Public Sub LeerArchivo_PasoArray()
        Try
            '1º Comprueba si el archivo no existe para crearlo
            If Not My.Computer.FileSystem.FileExists(ARCHIVOC) Then
                My.Computer.FileSystem.WriteAllText(ARCHIVOC, TextoC, False)
            End If
            '2º Desciframos el archivo, asignamos y volvemos a transladar al archivo
            TextoSC = My.Computer.FileSystem.ReadAllText(ARCHIVOC)  'Lee todo archivo
            TextoSC = DESCIFRA(TextoSC)
            My.Computer.FileSystem.WriteAllText(ARCHIVOC, TextoSC, False)
            '3º Lee archivo de texto (sin cifrar) y lo pasa a los Arrays
            Using SR As New StreamReader(File.OpenRead(ARCHIVOC))
                For A As Integer = 0 To 4
                    TopClasi(A) = SR.ReadLine()                     'Leer una sola línea                    
                Next A
            End Using
            '4º Vuelve a cifrar archivo y lo guarda
            TextoC = CIFRA(TextoSC)
            My.Computer.FileSystem.WriteAllText(ARCHIVOC, TextoC, False)
        Catch ex As Exception
            MsgBox(ex.Message, 16, "Error Archivo Clasificación")
        End Try
End Sub