Estou tentando fazer o seguinte;

 

Quardo na variavel TEXTO o seguinte texto.

  Dim TEXTO as string

  TEXTO = "João Paulo" & "^" & "ARCOS" & "^" & "Minas Gerais"

 

No form tenho (txtNome, txtCidade, txtEstado)

 

Minha dúvida é como faço para jogar os dados da váriavel que estão separados por "^" dentro de cada TextBox.?

 

 

Amigo João Paulo, teste o seguinte código:

 

----------------------------------------------------------------------------

Dim TEXTO As String
Dim i, j, k As Long

 

TEXTO = "João Paulo" & "^" & "ARCOS" & "^" & "Minas Gerais"

 

i = InStr(1, TEXTO, "^")
j = InStr(i + 1, TEXTO, "^")
k = j - i - 1 'Meio da string

 

txtNome.Text = Mid(TEXTO, 1, i - 1) 'Início da string
txtCidade.Text = Mid(TEXTO, i + 1, k) 'Meio da string
txtEstado.Text = Mid(TEXTO, j + 1) 'Final da string

galera muito obrigado pela ajuda, precisando de min estou aqui OK!

Este Código eu usei mais to tentando entender, pois tenho mais de 20 TextBox em meu form.

 

 Dim TEXTO As String
  Dim intPosicao As Integer
  Dim intAux As Integer
  TEXTO = "João Paulo" & "^" & "ARCOS" & "^" & "Minas Gerais"
  intPosicao = InStr(1, TEXTO, "^")
  Text1(0).Text = Mid(TEXTO, 1, intPosicao - 1)
  intAux = intPosicao
  intPosicao = InStr(intAux + 1, TEXTO, "^")
  Text1(1).Text = Mid(TEXTO, intAux + 1, (intPosicao - 1) - (intAux + 1))
  intAux = intPosicao
  Text1(2).Text = Mid(TEXTO, intAux + 1)