Visual Basic.NET - No encuentro el error

Hola a todos.
Soy nuevo en esto y no encuentro el error,por vueltas que le doy.
Ejecuto el programa,para comprobar,y me deja,pero en un momento dado,me da Null Reference Exception, en esta parte concreta:

For Vuelta = 1 To Longitud
TextoIntermedio(Vuelta) = TextoOriginal.Substring(Vuelta, 1)
Next Vuelta

(Longitud es la longitud de la cadena,TextoIntermedio una matriz en la que quiero guardar uno a uno cada uno de los carácteres del texto guardado en TextoOriginal)

El caso es que le he dado vueltas y vueltas y nada.
Muchas gracias por adelantado.

Mira el valor de Vuelta en el momento del error y te indicará si has sobrepasado el valor maximo de elementos de la tabla TextoIntermedio.

Es decir :

Supongamos que el TextoOriginal tiene 10 posiciones. Si defines TextoIntemedio[0 to 9] te dara problemas porque el elemento de indice 0 no se rellenara y al procesar el ultimo (10) esta por encima del tope. En este caso deberias codificarlo:

For Vuelta = 1 To Longitud
TextoIntermedio(Vuelta-1) = TextoOriginal.Substring(Vuelta, 1)
Next Vuelta

Si has definido TextoIntemedio[1 to 10] la codificacion es correcta

Prueba con un textooriginal pequeño en modo debug mira el valor de Vuelta. Eso te indicara donde esta el fallo

Deberías incluir todo el código o por lo menos las declaraciones sino nos tenemos que basar en intuiciones.
Probablemente sea ---> Dim Longitud as Integer = Cadena.Lenght
Prueba con Longitud as Integer = Cadena.Lenght -1 sino
¿Podrias mostrar mas código?

Muchas gracias,no contesté antes porque estuve unos días sin internet.
Muchas gracias otra vez.

Es un windows Form y cree un modulo para que las variables me valieran en todo el programa(igual hice mal,pero ya digo que soy nuevo en esto,jeje)(es lo que suelo hacer)
El contenido del modulo es este:

Module Module1

Public TextoOriginal As String
Public TextoCambiado As String
Public Longitud As Integer
Public TextoIntermedio() As String

End Module

y el del form:

Public Class Form1
Private Sub BotonCodificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonCodificar.Click
TextoOriginal = TextBox1.Text
Longitud = TextoOriginal.Length

For Vuelta = 0 To (Longitud)
TextoIntermedio(Vuelta) = TextoOriginal.Substring(Vuelta, 1)
Next Vuelta

End Sub
End Class

Como ves,no llevo casi nada y no me funciona..

No probaste lo que te conteste, aki tienes la solucion sobre tu propio codigo

'GUARDAMOS EL TAMAÑO DE LA CADENA
Longitud = TextoOriginal.Length - 1

'ASIGNAMOS EL TAMAÑO DEL ARRAY QUE CONTENDRA LOS CARACTERES DE LA CADENA
ReDim TextoIntermedio(Longitud)

'RECORREMOS LAS LETRAS DE LA CADENA Y LAS ALMACENAMOS EN EL ARRAY
For Vuelta = 0 To (Longitud)
TextoIntermedio(Vuelta) = TextoOriginal.Substring(Vuelta, 1)
Next Vuelta