[اسلام الكبابى]

هذان كودان
أحدهما يمنع تكرار أى حرف (مثلآ يترك أول ق ويحذف أى ق أخرى تأتى بعد ذلك)
والآخر يحذف أى حرف مكرر (مثلآ يحذف أى ق  حتى أول ق .فلايجعل فى الجملة أى ق)

كود :

Private Sub Command1_Click()
Dim myText As String
Dim X As String
Dim Y1 As String
Dim Y2 As String
myText = Text1.Text
 I = 1
10 Lenn = Len(myText)
  X = Mid(myText, I, 1)
  I1 = InStr(myText, X): Print I1
  I2 = InStrRev(myText, X): Print I2
  If I1 = I2 Then GoTo 20
    Y1 = Mid(myText, 1, I)
    Y2 = Mid(myText, (I + 1), (Lenn - I))
    Y2 = Replace(Y2, X, "")
    myText = Y1 + Y2
   Print myText
20 If I < Lenn Then I = I + 1: GoTo 10
End Sub

Private Sub Command2_Click()
Dim myText As String
Dim X As String
Dim Y1 As String
Dim Y2 As String
myText = Text1.Text
 I = 1
10 Lenn = Len(myText)
  X = Mid(myText, I, 1)
  I1 = InStr(myText, X): Print I1
  I2 = InStrRev(myText, X): Print I2
  If I1 = I2 Then GoTo 20
    myText = Replace(myText, X, "")
   Print myText
20 If I < Lenn Then I = I + 1: GoTo 10
End Sub