MID - Function

MID(string, start [,length])

Returns a substring from the middle, left or right of a string (Variant / String).

string	The text string (String).
start	The character position to start (Long).
length	(Optional) The number of characters to return (Long).

REMARKS

* This function will return a substring from a larger string.
* If "start" > Len("string"), then a zero length string is returned.
* If "start" is 0, then a run-time error occurs.
* The first character position is 1.
* If "string" is Null, then Null is returned.
* If "length" is left blank, then all the characters from the "start" to the end of "string" are returned.
* You can use the INSTR function to return the position of a substring within a larger string, starting at the beginning.
* You can use the INSTRREV function to return the position of a substring within a larger string, starting at the end.
* You can use the LEFT function to return a substring from the left of a string.
* You can use the MID Statement to replace a specified number of characters with characters from another string.
* You can use the MIDB function that can be used with byte data.
* You can use the MID$ function to return a String data type instead of a Variant data type.
* You can use the MIDB$ function to return a String data type instead of a Variant data type.
* You can use the REPLACE function to return a text string with a number of characters replaced.
* You can use the RIGHT function to return a substring from the right of a string.
* For more information, refer to the Finding Strings page.
* The equivalent Excel function is Application.WorksheetFunction.MID
* The equivalent .NET function is Microsoft.VisualBasic.Strings.Mid
* For the Microsoft documentation refer to learn.microsoft.com

Dim sText As String 
sText = Mid("hello world", 4, 5)           'from the middle  
Debug.Print sText                          '= "lo wo"  

sText = Mid("hello world", 1, 5)           'from the left  
Debug.Print sText                          '= "hello"  

sText = Mid("hello world", 11 + 1 - 5, 5)  'from the right  
Debug.Print sText                          '= "world"  

sText = Mid("hello world", 7, 3) 
Debug.Print sText                          '= "wor"  

Debug.Print Mid("hello world", 2)          '= "ello world"  
Debug.Print Mid("abc", 3)                  '= "c"  
Debug.Print Mid("somemore", 5000, 1)       '= ""  
Debug.Print Mid("somemore", 1, 1)          '= "s"  
Debug.Print Mid("somemore", 2, 1)          '= "so"  
Debug.Print Mid("somemore", 5, 4)          '= "more"  
Debug.Print Mid("development", 0)          'runtime error  

Dim sString As String 
sString = "123456789" 
Debug.Print Mid(sString, Len(sString) - 1) '= "89"  
Debug.Print Mid(sString, Len(sString) - 2) '= "789"  
Debug.Print Mid(sString, Len(sString) - 3) '= "6789"