Opdatere objekter i listbox

Hvordan kan jeg opdatere værdier i et objekt som giver udslag i ToString funktion, så teksten der bliver vist også ændres.

Jeg har prøvet et par forskellige ting uden held.

Mit objekt:
Public Class MitObjekt
  Private _Tekst as String
  Public Property Tekst as string
    Get
      Return _Tekst
    End Get
    Set(ByVal Value As String)
      _Tekst = Value
    End Set
  End Property

  Public Overrides Function ToString as string
    Return Tekst
  End Function
End Class

Kode:
Dim O As MitObjekt = ListBox.SelectedItem
O.Tekst = "Ny tekst"
lbxListBox.SelectedItem = O

eller
CType(ListBox.SelectedItem).Tekst = "Ny tekst"