哪位帮我改一小段程序。

以下代码本来是要实现：每单击一次Command1，在Richtextbox1文本的每两个文字（无论英文单词还是汉字）之间插入一个“|”，同样对于

Command2，是在每两个字之间插入一个"`" ，可是按现在的情况运行程序，是在每两个字之间插入了两个“|”（或"`"）：
propulsion.. system.. will.. ever.. approach.. the
网..易..1..0..周..年..邮..票..即..可..兑..换

但我期望的效果是：propulsion. system. will. ever. approach. the
网.易.1.0.周.年.邮.票.即.可.兑.换

Private Sub Command1_Click()
Dim A() As String
ReDim A(Len(Richtextbox1.Text))
For i = 1 To Len(Richtextbox1.Text) Step 2
A(i) = Mid(Richtextbox1.Text, i, 2)
Next
Richtextbox1.Text = ""
For i = 1 To UBound(A)
Richtextbox1.Text = Richtextbox1.Text & "|" & A(i)
Next
End Sub

Private Sub Command2_Click()
Dim A() As String
ReDim A(Len(Richtextbox1.Text))
For i = 1 To Len(Richtextbox1.Text) Step 2
A(i) = Mid(Richtextbox1.Text, i, 2)
Next
Richtextbox1.Text = ""
For i = 1 To UBound(A)

Private Sub Command1_Click()
Dim A() As String
ReDim A(Len(Richtextbox1.Text))
For i = 1 To Len(Richtextbox1.Text)
A(i) = Mid(Richtextbox1.Text, i, 1)
Next
Richtextbox1.Text = ""
For i = 1 To UBound(A)
Richtextbox1.Text = Richtextbox1.Text & "|" & A(i)
Next
End Sub

Private Sub Command2_Click()
Dim A() As String
ReDim A(Len(Richtextbox1.Text))
For i = 1 To Len(Richtextbox1.Text)
A(i) = Mid(Richtextbox1.Text, i, 1)
Next
Richtextbox1.Text = ""
For i = 1 To UBound(A)
Richtextbox1.Text = Richtextbox1.Text & "." & A(i)
Next
End Sub

Private Sub Command3_Click()
Command3.Caption = Len(Richtextbox1.Text)
End Sub

Private Sub Form_Load()
Richtextbox1.Text = "网易10周年邮票即可兑换 "
End Sub

这段程序还算小啊？

哪位帮我改一小段程序。 麻烦大家帮我这一小段中文改一下 哪位高手帮我翻译一小段文章？ 哪位有空帮我听一小段听力 帮我翻译一小段, 哪位高人愿意帮我改一下asp的程序 请个高手帮我写一小段C语言程序 帮我看一下一小段再简单不过的程序哪出错了~ 一小段专业英语，哪位大师帮我翻译一下！谢谢！！ 哪位大虾能帮我翻译一小段中文,谢谢了!!!!!!!!!!!!!!