Private Sub Command1_Click()
    Dim s() As String
    Dim i As Long
    Dim lGesamt As Long
    Dim dMittlereLaenge As Double
 
    s = Split(Text1.Text, " ")
    For i = 0 To UBound(s)
        lGesamt = lGesamt + Len(s(i))
    Next i
    dMittlereLaenge = lGesamt / i
    MsgBox "Mittlere Länge: " + CStr(dMittlereLaenge) + " Zeichen"
 
    Me.ScaleMode = vbPixels
    Me.Font.Size = 10
    Me.Text1.Font.Size = 10
 
    lGesamt = 0
    For i = 0 To UBound(s)
        lGesamt = lGesamt + TextWidth(s(i))
    Next i
    dMittlereLaenge = lGesamt / i
    MsgBox "Mittlere Länge: " + CStr(dMittlereLaenge) + " Pixel"
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1