Определить самую длинную строку в ListBox

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, как кодом определить длину (Len(Me.ListBox1.List(x))) самой длинной строки в списке ListBox1 на форме? (vba excel 2003). Заранее спасибо!

For x = 0 To Me.ListBox1.ListCount - 1
Next x

[pashulka]

For i = 0 To ListBox1.ListCount - 1
    m = Application.Max(m, Len(ListBox1.List(i)))
Next
MsgBox m

[Aleksandr H.]

v.2

m = 0
For i = 0 To ListBox1.ListCount - 1
    IF m < Len(ListBox1.List(i)) then m = Len(ListBox1.List(i))
Next
debug.print m

[pashulka]

v2.5

For i = 0 To ListBox1.ListCount - 1
    l = Len(ListBox1.List(i))
    m = IIf(l > m, l, m)
Next
MsgBox m

+

a = ListBox1.List
For i = 0 To UBound(a)
    l = Len(a(i, 0)): m = IIf(l > m, l, m)
Next
MsgBox m

[ольгаг]

Спасибо!

[ольгаг]

Подскажите пожалуйста, как кодом определить содержимое (текст) самой длинной строки в ListBox-е на форме и вывести найденное значение, например, в TextBox на этой же форме?
Заранее спасибо!

[Aleksandr H.]

m = 0: line = ""
For i = 0 To ListBox1.ListCount - 1
    IF m < Len(ListBox1.List(i)) then 
        m = Len(ListBox1.List(i))
        line = listBox1.List(i)
    End IF
Next
TextBox = line

[pashulka]

Почти тоже самое ...

For i = 0 To ListBox1.ListCount - 1
    l = Len(ListBox1.List(i))
    If l > m Then c = i: m = l
Next
TextBox1 = ListBox1.List(c)

a = ListBox1.List
For i = 0 To UBound(a)
    l = Len(a(i, 0))
    If l > m Then c = i: m = l
Next
TextBox1 = ListBox1.List(c)

[ольгаг]

Спасибо большое!