Indetectables

Con Mid y InStr lo solucionas...o Con Right/Left
PD: Es muy simple si manejas VB,debes de manejar esas funciones internas...

Salu2

O con la funcion de texto en medio:
Fuente: K-OZ

Para llamar:
Dim str as string
str = TextEnMedio(Text1.text, "[", "]")


Salu2

Seritx escribió:O con la funcion de texto en medio:

Código: Seleccionar todo

Public Function TextoEnMedio(Text As String, Del1 As String, Del2 As String) As String
On Error Resume Next
Dim Par1() As String
Par1() = Split(Text, Del1)
TextoEnMedio = Split(Par1(UBound(Par1())), Del2)(0)
End Function

Fuente: K-OZ

Para llamar:
Dim str as string
str = TextEnMedio(Text1.text, "[", "]")


Salu2

O_O brother de donde sacaste esta funcion?

pa que tanta bola pa una simple función, ve rápido a [Enlace externo eliminado para invitados]