Zo ziet het programma sorteerder eruit (de listbox is gesorteerd):
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
Dim invoer As String
Do
invoer = InputBox("Geef me wat invoer")
ListBox1.Items.Add(invoer)
Loop While Not invoer = ""
Dim doorloper As Integer
Dim msg As String
For doorloper = 0 To ListBox1.Items.Count - 1
msg &= ListBox1.Items.Item(doorloper) & vbCrLf
Next
MsgBox(msg)
End Sub