C# と VB.NET の質問掲示板

初めまして。

VBの事でお聞きします。

リストボックスの文字をリストに上書きさせたいです。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("リンゴ")
        ComboBox1.Items.Add("トマト")
        ComboBox1.Items.Add("キュウリ")
    End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If ComboBox1.SelectedIndex = 0 Then
            If Not ListBox1.Items.Contains(ComboBox1.Text.Trim()) Then
                ListBox1.Items.Add(ComboBox1.Text.Trim)
            End If
        End If
        If ComboBox1.SelectedIndex = 1 Then
            If Not ListBox1.Items.Contains(ComboBox1.Text.Trim()) Then
                ListBox1.Items.Add(ComboBox1.Text.Trim)
            End If
        End If
        If ComboBox1.SelectedIndex = 2 Then
            If Not ListBox1.Items.Contains(ComboBox1.Text.Trim()) Then
                ListBox1.Items.Add(ComboBox1.Text.Trim)
            End If
        End If
    End Sub

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
    End Sub


重複させないようにしています。
            If Not ListBox1.Items.Contains(ComboBox1.Text.Trim()) Then
                ListBox1.Items.Add(ComboBox1.Text.Trim)

リストに文字を上書きするには一度ListBox1.Items.Clear()してからじゃないと出来ないんでしょうか？
リンゴがリストに入っている時、「１番目にリンゴをトマト」に上書きさせるにはどうしたらよろしいでしょうか？
初心者ですがよろしくお願いします。