Función Mid e instrucción Mid

Devuelve la porción especificada de una expresión de cadena (función Mid) o sustituye la parte de una expresión de cadena por otra cadena (instrucción Mid).

Sintaxis:

Mid (Texto As String, Inicio As Long[, Longitud As Long]) o Mid (Texto As String, Inicio As Long, Longitud As Long, Texto As String)

Valor de retorno:

Cadena (sólo la función)

Parámetros:

Texto: Cualquier expresión de cadena que se desee modificar.

Inicio: Expresión numérica que indica la posición del carácter dentro de la cadena donde comienza la parte de la cadena que desea sustituir o devolver. El valor máximo permitido es de 65535.

Longitud: Expresión entera que devuelva el número de caracteres que se desea sustituir o devolver.

Si se omite el parámetro de longitud de la función Mid, se devuelven todos los caracteres de la expresión de cadena, desde la posición de inicio hasta el final de la cadena.

Si el parámetro de longitud de la instrucción Mid es inferior a la longitud del texto que se desea sustituir, el texto se reduce a la longitud especificada.

Texto: La cadena que sustituirá a la expresión de cadena (instrucción Mid).

Códigos de error:

5 Llamada a procedimiento no válida

Ejemplo:

Sub ExampleUSDate

Dim sInput As String

Dim sUS_date As String

    sEntrada = InputBox("Escriba una fecha en formato internacional 'AAAA-MM-DD'")

    sUS_date = Mid(sInput, 6, 2)

    sUS_date = sUS_date & "/"

    sUS_date = sUS_date & Right(sInput, 2)

    sUS_date = sUS_date & "/"

    sUS_date = sUS_date & Left(sInput, 4)

    MsgBox sUS_date

End Sub