A função VBA MID retorna o número especificado de caracteres de uma sequência de caracteres começando no número de caracteres especificado.
Mid(texto, início)
Ou
Mid(texto, início, char_count)
Obtenha diferentes partes de texto de uma string:
Sub MidExample() MsgBox Mid("www.moonexcel.com.ua", 1, 1) 'Retorna: w MsgBox Mid("www.moonexcel.com.ua", 1, 3) 'Retorna: www MsgBox Mid("www.moonexcel.com.ua", 1, 13) 'Retorna: www.moonexcel MsgBox Mid("www.moonexcel.com.ua", 1, 30) 'Retorna: www.moonexcel.com.ua MsgBox Mid("www.moonexcel.com.ua", 5, 9) 'Retorna: moonexcel MsgBox Mid("www.moonexcel.com.ua", 5, 4) 'Retorna: moon MsgBox Mid("www.moonexcel.com.ua", 9, 5) 'Retorna: excel MsgBox Mid("www.moonexcel.com.ua", 16, 3) 'Retorna: com MsgBox Mid("www.moonexcel.com.ua", 5, 50) 'Retorna: moonexcel.com.ua MsgBox Mid("www.moonexcel.com.ua", 5) 'Retorna: moonexcel.com.ua End Sub