VB divide una cadena de una cadena especificada

Puedes consultar el siguiente código:

Private Sub Command1_Click()

Dim s As String

s = "123456- -- -hdahdkahd----2013.1.1"

Dim a

a = Split(s, "----")

If IsArray (a ) Entonces

Text1.Text = a(1)

End If

End Sub

Información extendida:

Sintaxis

Dividir(expresión[, delimitador[, recuento[, comparar]]]

Parte de la sintaxis de la función Dividir:

expresiónRequerido, con subcadenas y expresión de cadena de delimitador. Si la expresión es una cadena de longitud cero (""), Split devuelve una matriz vacía, es decir, una matriz sin elementos ni datos.

Enciclopedia Baidu. - función de división<.