Hola "Stringa",
Este codigo separa lo que tiene el Text1, si empieza por "SE14N" manda el resto de los caracteres al Text2, sino al Text3.
If Mid(Text1.Text, 1, 5) = "SE14N" Then Text2.Text = Mid(Text1.Text, 6, Len(Text1.Text))
Else Text3.Text = Mid(Text1.Text, 6, Len(Text1.Text))
End If
Eso por un lado.
Por el otro tu codigo muestra un error porque no se puede asignar un valor cuando se declara una variable:
Esto:
Dim texto() As String = split(text1.text, vbcrlf)
Hay que hacerlo así:
Dim texto() As String
texto = split(text1.text, vbcrlf)
Además VB 6.0 no permite declarar una variable dentro de un FOR EACH y la variable no puede ser String tiene que ser Variant:
Esto:
for each S AS string in texto
Hay que hacerlo así:
Dim S As Variant
For Each S in Texto
Next
Te recomendaría googlear un poco y leer algún tutorial de VB 6.0. Hay muchos y muy buenos.
Espero te sirva, saludos.