Vba - Excel - Länge ermitteln

An diesen Beispiel wird erklärt wie man die Länge eines Textes ermittelt. 

Sub LaengeErmitteln()
    ' Deklariert die Variable tText als String(Text)
    Dim tText As String
    ' Deklariert die Variable nLaenge als Integer(Zahl)
    Dim nLaenge As Integer
    
    ' Zelle A1 wird ausgewählt
    Range("A1").Select
    ' Der Inhalt der Aktieven Zelle (A1) wir der Variable tText zugewiesen
    tText = ActiveCell.Value
    
    ' Len(Ausdruck) gibt die Länge als Zahl zurück.
    ' In diesen Beispiel die Länge von der Variable tText.
    ' Das Ergebniss wird der Variable nLaenge zugewiesen.
    nLaenge = Len(tText)
    
    'Ausgabe
    MsgBox (nLaenge)
    
End Sub