Visual Basic - ayuda sobre text y list

tengo un problemita este es mi codigp para analizar comentarios de un text y los agrego a la lista ahora necesito me ayuden en como eliminar comentmerio del text el q el usuario seleccione de la lista por favor

tengo este codigo

Private Sub Command1_Click()
Dim car1, car2, comentario, cadena, cadenasincoment, cadenasincomentSE As String Dim lgcad, i As Integer
Dim bandera As Boolean

bandera = False
cadena = Text1
lgcad = Len(Text1)

car1 = Mid(cadena, i, 3)
car2 = Mid(cadena, i + 1, 3)

For i = 1 To lgcad

If (car1 = "**@") And (bandera = False) Then
pos1 = i
bandera = True
car2 = Mid(cadena, i + 1, 3)
End If

If (car1 = "**@") And (bandera = True) Then
pos2 = i
bandera = False
lgcad = pos2 - pos1
comentario = Mid(cadena, pos1, lgcad + 3)
cadenasincoment = Replace(cadena, comentario, "")
list2.additem ( comentario )
End If
Next i
End Sub