Como organizar por ordem alfabética os dados de um ListBox?

Question

Alguém sabe com fazer para organizar os dados de um ListBox em ordem alfabética?

Vamos supor que exista um formulário que possui um Texbox "Textbox1" um Listbox "Listbox1" e um CommandButton "Commandbutton1" .

Como faço para que quando eu clicar no Commandbutton1 o texto do Textbox1 seja inserido na listagem do Listbox1 e depois organizar todo por ordem alfabética?

Private Sub CommandButton1_Click()
ListBox1.AddItem TextBox1.Value
End Sub

Valeu...

Answer 1

Sugiro dar uma estudada aqui, tem exemplos prontos ao fim da página: http://www.ambienteoffice.com.br/excel/filtrar_dados_em_formularios/

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 2

Dim iForsta, iSista As Integer
Dim i, j As Integer
Dim sTemp As String
iForsta = 0
iSista = ListBox1.ListCount - 1
For i = iForsta To iSista - 1
    For j = i + 1 To iSista
        If ListBox1.List(i) > ListBox1.List(j) Then
            sTemp = ListBox1.List(j)
            ListBox1.List(j) = ListBox1.List(i)
            ListBox1.List(i) = sTemp
        End If
    Next j
Next i

---

jose