در كد بايين ايرادي هست مي تونيد رفع كنيد
For i = 1 To Len(questionasked)
If Mid(questionasked, i, 1) = "" Then GoTo finished
If Mid(questionasked, i, 1) = Mid(questionasked, i + 1, 1) Then
questionasked = Replace(questionasked, Mid(questionasked, i, 1) & Mid(questionasked, i, 1), Mid(questionasked, i, 1))
i = i - 1
End If
Next i
|