求教:我有一个文本文件,每行的字符串如下,每行的格式如下不固定,请教怎么用vb提取其中的指定字符?
'6335413778402 , 6335413778402, 12,
' 3W5413778-4a , 1 ,
.........
想分别提取每行数据: 6B35413778-402和12       3W5413778-4a和1
第一行字符串重复,提取第一个字符串 和 后面的数字
第二行没有重复,提取一个字符串 和后面的数字
......
第N行也是一样.

先说声谢谢了!

谢谢热心帮助,可是我复制代码怎么没效果

谢谢热心帮助 怎么我复制代码执行后怎么没效果

Private Sub Command1_Click()
    Dim W1 As String, W2 As String, W3 As String
    Open App.Path & "\AAA.txt" For Input As #1
    Do While Not EOF(1)
        Input #1, W1, W2, W3
        If W1 = W2 And W3 <> "" Then
            Text1.Text = Text1.Text & W1 & Space(5) & W3 & vbCrLf
        ElseIf W1 <> W2 And W3 = "" Then
            Text1.Text = Text1.Text & W1 & Space(5) & W2 & vbCrLf
        End If
    Loop
    Close #1
End Sub

Input #1, W1, W2, W3
这句执行有问题啊