Visual Basic - LEER CARACTERES

SUPONGAMOS QUE TENGO LA SIGUIENTE CADENA

Text1@Text2@Text3

COMO HARIA PARA SEPARARLA Y PONER TEXT1 , EN EL TEXT1 , TEXT2 EN EL TEXT 2 ETC ?
OSEA QUE LEA EL ARROBA COMO EL CARACTERER INDICADOR PARA SEPARAR

DESDE YA MUCHAS GRACIAS

encontre la solucion pensando yo mismo , pero como no soy egoista ahi va el codigo por si hay alguien que busca los mismo , la idea es guardar en una base una cadena de items los cuales los ,meto en un solo campo para luego separarlos ...

Private Sub Command1_Click()
Text4.Text = Text1(0).Text & "@" & Text1(1).Text & "@" & Text1(2).Text
For I = 0 To 2
Text1(I).Text = ""
Next
End Sub

Private Sub Command2_Click()
Dim texto As String
Dim cont As Integer
Dim I As Integer
Dim contcaracter As Integer

texto = Text4.Text
cont = 0
For I = 1 To Len(texto)
cont = cont + 1
If Not Mid(texto, I, 1) = "@" Then
Text1(contcaracter).Text = Text1(contcaracter).Text + Mid(texto, I, 1)
Else
contcaracter = contcaracter + 1
End If
Next I

End Sub

son tres array de text1 y un text4 , con 2 command despues copiar y pegar obvio prueben y opinen si hay algo mas corto de programar bienvenido sea
saludos !!!

Sí se puede hacer de forma mas sencilla

Private Sub Command2_Click()
Dim aText() As String, i As Integer
aText = Split(Text4, "@")
For i = 0 To UBound(aText)
Text1(i) = aText(i)
Next i
End Sub