Allora ti occorre una cosa del genere

codice:
If TextBox1.Text.Length > 0 Then
   Dim bTrovata As Boolean = False
   For Each myItem In ListBox1.Items
       If TextBox1.Text = myItem Then
            bTrovata = True
            Exit For
       End If
   Next

   If bTrovata = False Then
        ListBox1.Items.Add(TextBox1.Text)
   End If
End If