Visual Basic - Eliminacion de comentarios

Hola buenas tardes! Espero que puedan ayudarme... Les cuento... Tengo un problema haciendo un porgrama.. resulta que el programa deberia eliminar el texto dentro de la marca de comentarios, mi marca de comentario es **@ , es decir q si escribo -->> Hola **@ Q tal? **@ cuando presione el boton deberia eliminar las marcas de comentario y lo q esta dentro de ellas... Pero el programa q logre hacer solo me borra las marcas de comentario y me deja el comentario alli... Aca les dejo las lineas a ver si pueden ayudarme, se los agradeceria...

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)

For i = 1 To lgcad
car1 = Mid(cadena, i, 3)
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, "")
Text2.Text = cadenasincoment
End If
Next i
End Sub

Private Sub Command1_Click()
Dim iPos As Integer, iLen As Integer, i As Integer
Dim cadena As String, s As String
For i = 1 To Len(Text1)
s = Mid(Text1, i, 3)
If s = "**@" And iPos = 0 Then
iPos = i
ElseIf iPos <> 0 And s = "**@" Then
iLen = i - iPos + 4
cadena = Mid(Text1, iPos, iLen)
cadena = Replace(Text1, cadena, "")
Exit For
End If
Next i
Text2 = cadena
End Sub

Gracias !!!
Me has salvado la vida graciela saludos :o) !!!!!