Private Sub Command1_Click( )
Dim s As String, s1 As String, c1 As String, c2 As String
Dim i As Integer, t As Integer 't 用于统计相同字符的个数
c1 = Mid(s,1,1) : s1 = ""
t = 1
For i = 2 To Len(s)
c2 =
If c1 <> c2 Then
If t = 1 Then s1 = s1 + c1
t = 1
Else
t = t + 1
End If
Next i
Text2.Text = s1
End Sub