Visual Basic - ALGUIEN QUE SEPAA!!

Gracias de antemano a toda la ayuda que me puedan proporcionar.
Esta es la cuestión:
Tengo un programa con dos textboxes. Guardo las el texto de las dos en un .txt sin problemas, pero ahora quiero abrirlas. Como hago para que mi programa pueda distinguir que parte del texto va en cada txtbox?

Puedes incluir un caracter que separe ambos textos.

Saludos espero haberte ayudado. Pola

Ok, pongo cualuier caracter que los separe, como por ejemplo: |
pero ahora como hago para que mi programa lo lea y sepa separar los dos textos¿?

Vas a recuperar en cada linea una cadena de texto. Busca el caracter separador dentro de la cadena en que posición se encuentra, con esto ya tendras las dos partes de la cadena que van en cada caja de texto.

Saludos Pola

'Para asignar
Dim s as string
s=text1.text & "|" & text2.text
'Guardás s en el .txt

'Para recuperar
Dim iPos as long, s as string
s=Recuperardesdeeltxt 'recuperás el valor guardado
iPos =InStr(1,s,"|",vbTextCompare)
text1.text=Left$(s,ipos-1)
text2.text=mid$(s, ipos+1)

Saludos Ruri

Muchas gracias a todos los que me ayudais pero os pido una ultima ayuda: ahora ya lo guarda y todo pero sigo sin poder abrirlo y que lo separe. Esto es lo que tengo para abrirlo:

CD.Filter = "Archivo de texto (*.TXT)|*.txt"
CD.ShowOpen 'muestra el cuadro de diálogo Abrir
If CD.FileName <> "" Then
Open "C:/Archivo.txt" For Input As #1
Dim iPos As Long, s As String
s = Recuperardesdeeltxt
iPos = InStr(1, s, "|", vbTextCompare)
Text1.Text = Left$(s, iPos - 1)
Text2.Text = Mid$(s, iPos + 1)
End If

Y me da error en las lineas:
Text1.Text = Left$(s, iPos - 1)
Text2.Text = Mid$(s,

Alguien me puede precesar el código proporcionado por Ruri?

Hola Abel
Me interesó lo que proponías y me funcionó el siguiente código utilizando las funciones InStr , Len , Left y Right :

Private Sub guardar_Click()
Dim a As String
a = Text1.Text & "/" & Text2.Text
Open App.Path & "\mitexto.txt" For Output As #1
Print #1, a
Close #1
End Sub

Private Sub leer_Click()
Dim a As String
Dim b As Integer
Open App.Path & "\mitexto.txt" For Input As #1
Input #1, a
b = InStr(a, "/")
Text1.Text = Left(a, b - 1)
Text2.Text = Right(a, Len(a) - b)
Close #1
End Sub

Espero te sirva de algo
Cordialmente
Juan Carlos

Abel:
Eso puede deberse a que el txt está vacío o no tenés ningún pipe "|" ( el separador) en él. Así iPos toma el valor 0 y la cadena nopuede cortarse en el caracter cero o -1 (el promer caracter es 1). Probá lo siguiente:

CD.Filter = "Archivo de texto (*.TXT)|*.txt"
CD.ShowOpen 'muestra el cuadro de diálogo Abrir
If CD.FileName <> "" Then
Open "C:\/Archivo.txt" For Input As #1
Dim iPos As Long, s As String
s = Recuperardesdeeltxt 'Esta función es tuya, no es parte del lenguaje
iPos = InStr(1, s, "|", vbTextCompare)
if iPos>1 then
Text1.Text = Left$(s, iPos - 1) '
Text2.Text = Mid$(s, iPos + 1)
end if
End If

Saludos Ruri

mira ademas de colocar algo que los separe utiliza una la funcion mid (si mal no recuerdo) o busca informacion en la ayuda de visual sobre esta palabrita que por lo menos se que corta palabras. Pero no estoy muy segura ojala asi sea ya que me lo enseñaron en mis primeras clases de visual
adios