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