funcion Mid(cadena, inicio[, longitud])
inicio-> Posición de carácter en cadena en la que comienza la parte que se va a obtener. Si inicio es mayor que el número de caracteres que hay en cadena, Mid devuelve una cadena de longitud cero ("").
longitud-> Número de caracteres que se va a devolver. Si se omite o si hay menos caracteres que longitud en el texto (incluido el carácter que está en la posición inicio), se devuelven todos los caracteres desde la posición inicio hasta el final de la cadena.
Ejemplo:
Dim MiVar
MiVar = Mid("VB Script es divertido", 4, 6) ' MiVar contiene "Script".
Sacado de la ayuda del Interdev (esto no se considera pirateo,verdad,

)
Un salud ;)