In dem ersten Beispiel wird Len verwendet, um die Anzahl der Zeichen in einer Zeichenfolge oder die zum Speichern einer Variablen erforderlichen Bytes zurückzugeben. Dem Type...End Type-Block, der "Kundensatz" definiert, muß das Schlüsselwort Private vorangestellt sein, wenn es sich in einem Klassenmodul befindet. In einem Standardmodul kann eine Type-Anweisung das Attribut Public haben.
Type Kundensatz ' Benutzerdefinierten Typ
ID As Integer ' definieren und Definition in
Name As String * 10 ' Standardmodul ablegen.
Adresse As String * 30
End Type
Dim Kunde As Kundensatz ' Variablen deklarieren.
Dim Int1 As Integer, Cur1 As Currency
Dim Text1, Länge1
Text1 = "Hallo Welt" ' Variable initialisieren.
Länge1 = Len(Int1) ' Liefert 2.
Länge1 = Len(Kunde) ' Liefert 42.
Länge1 = Len(Text1) ' Liefert 11.
Länge1 = Len(Cur1) ' Liefert 8.
Im zweiten Beispiel wird LenB und eine benutzerdefinierte Funktion (LenMbcs) verwendet, um die Anzahl der Byte-Zeichen in einer Zeichenfolge zurückzugeben, wenn ANSI zur Darstellung der Zeichenfolge verwendet wird.
Function LenMbcs (ByVal str as String)
LenMbcs = LenB(StrConv(str, vbFromUnicode))
End Function
Dim MyString, MyLen
MyString = "ABc"
' Wobei "A" und "B" DBCS sind und "c" SBCS ist.
MyLen = Len(MyString)
' Gibt 3 zurück - 3 Zeichen in der Zeichenfolge.
MyLen = LenB(MyString)
' Gibt 6 zurück - 6 Bytes für Unicode verwendet.
MyLen = LenMbcs(MyString)
' Gibt 5 zurück - 5 Bytes für ANSI verwendet.