Pasar cadena a array

[sitiom]

Hola buenas,
quería saber como pasar un texto que tengo a un array para luego trabajar con ello. Explico el problema con un ejemplo. Por ejemplo tengo este texto
fg@21@45@56@gt@543@56@59
lo que quiero es almacenar los datos entre las @, pero cada 4. Por ejemplo debería quedar algo así---> Por un lado: fg y gt. Por otro: 21 y 543. Por otro 45 y 56 . Por otro 56 y 59.
Con estos datos (los numéricos) luego trabajaría metiéndolos en una serie de fórmulas. No sé si me he explicado muy bien...
Gracias y un saludo.

[erbuson]

Hola:

Puedes pegar el siguiente código en un formulario con un Command1

Private Sub Command1_Click()
Dim Matriz() As String
Matriz = Split("fg@21@45@56@gt@543@56@59", "@")
Dim Indice As Integer
For Indice = 0 To UBound(Matriz)
Print "Elemento "; Indice; " = "; Matriz(Indice)
Next
End Sub

Veras una idea de como puedes hacerlo, después utilizas los elementos de la matriz que quieras

[sitiom]

OK!!Gracias por contestar, lo pruebo y os comento.
Un saludo!

[sitiom]

Muchas gracias, me ha funcionado.
SaludosSS