Y=Parser(y)

Function Parser(texto As String) As String
 
 '' esta función extraera lo que encuentre entre parentesis y corchetes ignorando lo que haya antes

Dim lon As Integer ' longitud de la cadena

Dim pasadas As Long ' contador 1

Dim counter As Integer ' contador 2

Dim numero As String '' letra actual xDD

Dim num As String '' numero a formar tipo string

Dim cor As String '' nombre de la tabla


lon = Len(texto)

counter = 1

For pasadas = 1 To lon

    numero = Mid(texto, counter, 1)
    
        
        If numero <> "(" Then
        
        counter = counter + 1

        
        Else
Do
       counter = counter + 1
        
 
        
        numero = Mid(texto, counter, 1)
        
                If numero = ")" Then
                GoTo en
                End If
        
            
        num = num + numero

        
DoEvents

Loop
en:
        End If

If numero = "[" Then

Do

        
        numero = Mid(texto, counter, 1)
        
        counter = counter + 1
   
        If numero = "]" Then
    GoTo sal
    End If
        
        cor = cor + numero
        
Loop
sal:
Else
End If


Next pasadas

Parser = num + "," + cor
 
End Function

Si lllamo con Rundll32 a la DLL creada, me saldrá un MSGBOX ?

Espero su contestacion

Gracias.