La función MID VBA devuelve el número especificado de caracteres de una cadena de caracteres que comienza en el número de carácter especificado.
Mid(texto, inicio)
O
Mid(texto, inicio, char_count)
Obtener diferentes partes de texto de una cadena:
Sub MidExample() MsgBox Mid("www.moonexcel.com.ua", 1, 1) 'Devoluciones: w MsgBox Mid("www.moonexcel.com.ua", 1, 3) 'Devoluciones: www MsgBox Mid("www.moonexcel.com.ua", 1, 13) 'Devoluciones: www.moonexcel MsgBox Mid("www.moonexcel.com.ua", 1, 30) 'Devoluciones: www.moonexcel.com.ua MsgBox Mid("www.moonexcel.com.ua", 5, 9) 'Devoluciones: moonexcel MsgBox Mid("www.moonexcel.com.ua", 5, 4) 'Devoluciones: moon MsgBox Mid("www.moonexcel.com.ua", 9, 5) 'Devoluciones: excel MsgBox Mid("www.moonexcel.com.ua", 16, 3) 'Devoluciones: com MsgBox Mid("www.moonexcel.com.ua", 5, 50) 'Devoluciones: moonexcel.com.ua MsgBox Mid("www.moonexcel.com.ua", 5) 'Devoluciones: moonexcel.com.ua End Sub