In dem ersten Beispiel wird die Mid-Funktion verwendet, um eine bestimmte Anzahl von Zeichen aus einer Zeichenfolge zu liefern.
Dim Text1, ErstesWort, LetztesWort, Mitte Text1 = "Mid-Funktion Demo" ' Zeichenfolge erstellen. ErstesWort = Mid(Text1, 1, 3) ' Liefert "Mid". LetztesWort = Mid(Text1, 14, 4) ' Liefert "Demo". Mitte = Mid(Text1, 5) ' Liefert "Funktion Demo".
Im zweiten Beispiel wird MidB und eine benutzerdefinierte Funktion (MidMbcs) verwendet, um ebenfalls Zeichen aus einer Zeichenfolge zu liefern. Der unterschied besteht darin, daß die Eingabezeichenfolge ANSI ist und die Länge in Byte angegeben wird.
Function MidMbcs(ByVal str as String, start, length) MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), start, length), vbUnicode) End Function Dim MyString MyString = "AbCdEfG" ' Wobei "A", "C", "E" und "G" DBCS sind und "b", "d" ' und "f" SBCS sind. MyNewString = Mid(MyString, 3, 4) ' Liefert ""CdEf" MyNewString = MidB(MyString, 3, 4) ' Liefert ""bC" MyNewString = MidMbcs(MyString, 3, 4) ' Liefert "bCd"