Visual Basic - contar caracteres

Hola... Mi problema es poder contar una cierta cantidad de caracteres a partir de una cadena y luego cortar la cadena, me explico...

Poseo esta cadena: 734027009029001 8958020608091650033F

Quiero picar la cadena en 2 justamente donde està el espacio y verificar que la primera parte de la cadena posea 15 caracteres asi como la segunda parte deba tener 19 caracteres.

Los datos fijos que se tiene siempre es "73402" y "8958"

Alguna ayuda...??

Gracias.

Suponiendo que se llame "Cadena" tu variable:

inEspacio = Instr( Cadena, space( 1 ) )
if InEspacio <> 0 then ' Para saber si halló el espacio
Cadena1 = Left( Cadena, inEspacio -1 )
Cadena2 = Mid( Cadena, inEspacio +1 )
' Ahora comparas las longitudes de las 2 variables
if Len( Cadena1 ) = 15 and Len( Cadena2 ) = 19 then
' Adicionalmente comparas los caracteres iniciales constantes:
If Left( Cadena1, 5 ) = "73402" And Left( Cadena2, 4 ) = "8958" then
' La acción que quieras realizar, si todo está bien.
Endif
Endif
End if

Espero que te sirva.

Tambien podria ser de esta forma

Dim aText() As String
aText = Split(Text1, " ")
Text2(0) = aText(0)
Text2(1) = aText(1)
Text2(2).Text = Len(Text2(0).Text) & "," & Len(Text2(1).Text)

suerte !!