Private Sub Cmd_Click()
Dim dec As Integer, n As Integer, i As Integer, w As Integer
Dim s As String, c As String, sd As String
s = Text1.Text
n =
sd=""
For i = 1 To n
c =
If c <> "|" Then
If c = "/" Then
w = 0
Else
w = 1
End If
dec =
Else
sd = sd + Str(dec) + ","
dec = 0
End If
Next i
Text2.Text = sd
End Sub