Interpretar numeros

[SeNdEr2003]

me sirvio todo gracias, ahora el tema es, tengo separado los primeros 4 numeros de la cadena, pero necesito separar la segunda parte, es decir si tengo:

26535366, tomar solo 5366, se entiende?, usando la funcion: Mid(Text1.Text, 1, 4) me extrae los 1ros cuatro, es decir 2653, pero como hago para tomar los 4 siguientes??, probe poniendo 2,4 pero me toma otra cosa...alguna idea que me ayude?

Edito, viendo la ayuda de VB me encuentro con esto para tomar los 4 de la derecha: Codigo2 = Right$(Text1.Text, 1, 4)

pero me dice argumento no valido, yo para controlar uso un if por ahora, luego vere de usar base de datos, son pocos nros de momento...

tengo asi:

Código:

Dim sLinea As String
Open "C:\archivo.dat" For Input As #1
Do While Not EOF(1)
    Line Input #1, sLinea
    If sLinea <> "" Then
        ' eliminamos los dos primeros caracteres
        sLinea = Right(sLinea, Len(sLinea) - 2)
        ' sustituimos caracteres especiales por espacios
        sLinea = Replace(sLinea, "||", " ")
        Text1 = Text1 & sLinea & vbNewLine
    End If

Loop
Close #1
Dim Codigo As String
Codigo = Mid(Text1.Text, 1, 4) 'Extraer 4 caracteres desde el primero
Codigo2 = Right(Text1.Text, 1, 4) 'Extraer 4 caracteres desde el ultimo
If Codigo = "2653" Then
 Text2.Text = "Color Rojo"
 If Codigo2 = "5366" Then
  Text3.Text = "Color Blanco"
 End If
End If

me da error de argumento en el right...