请大家帮忙看看这段程序哪里出错了!!!

Question

Private Sub Command1_Click() 
Dim a() As String 
Dim b As String 
a = Split(Text1.Text, vbCrLf) 
For i = 0 To UBound(a) 
For m = 1 To 3 
b = Left(a(i), 6) 
RTrim ("b") 
If Len(b) >= 4 Then 
temp = Left(a(i), Len(a(i)) - m) 
For j = 0 To UBound(a) 
If temp = a(j) Then 
Exit For 
ElseIf temp <> a(j) And j = UBound(a) Then 
Text1.Text = Text1.Text & vbCrLf & temp 
End If 
Next 
End If 
Next m 
Next 
End Sub Private Sub Form_Load() 
Dim strLine As String 
Text1.Text = "" 
Open App.Path + "\wls.txt" For Input As #1 
While Not EOF(1) 
Line Input #1, strLine 
Text1.Text = Text1.Text & strLine & vbCrLf 
Wend 
Close #1 
End Sub 
这个显示在textbox框里是： 
cong 葱丛囱从匆 
cong 葱丛囱从 
cong 葱丛囱 
cou 
cou 
cou 
cu 醋粗促 
cu 醋粗 
cu 醋 
cuan 蹿窜 
cuan 蹿 
cuan 
cui 脆翠粹崔催摧淬 
cui 脆翠粹崔催摧 
cui 脆翠粹崔催 
cun 村寸 
cun 村 
cun 
cuo 搓撮挫措错 
cuo 搓撮挫措 
cuo 搓撮挫 
实际上正确的应该是： 
c 
co 
con 
cong 葱丛囱从匆聪 
cou 凑 
cu 醋粗促簇 
cua 
cuan 蹿窜篡 
cui 脆翠粹崔催摧淬瘁 
cun 村寸存 
cuo 搓撮挫措错磋 
这个程序的意思是检查拼音是否在文本里，把没有的不全，比如cong减去一位con如果没有就添加再减co到c其他的都是如此，现在是在没有后面的字和空格的时候程序能实现这种功能，但是加上字和空格了就编程上面的样子了，请问程序哪里出错了，该怎么改一下啊，非常感谢~~~~

Answer 1

wls.txt 里是什么内容？

Answer 2

cong 葱丛囱从匆 
cu 醋粗促 
cuan 蹿窜 
cuan 蹿 
cui 脆翠粹崔催摧淬 
cun 村寸 
cuo 搓撮挫措错 
这是wls.txt的

Answer 3

Private Sub Command1_Click()
    Dim a() As String
    Dim b As String
    Dim i As Long, j As Long
    
    a = Split(Text1.Text, vbCrLf)
    For i = 0 To UBound(a)
        If Len(a(i)) > 0 Then
            b = Split(a(i), " ")(0)
            For j = Len(b) - 1 To 1 Step -1
                b = Left$(b, j) & " "
                If InStr(1, Text1.Text, b) = 0 Then
                    Text1.Text = Text1.Text & vbCrLf & b
                End If
            Next
        End If
    Next
End Sub