Private Sub Command1_Click()
    Dim S1 As String, S2 As String
    Dim I1 As Integer
'    S1 = ?
    I1 = 1
    Do
'        Do While Mid(S1, I1, 1) <> ? And I1 <= Len(S1)
        S2 = S2 & Mid(S1, I1, 1)
            I1 = I1 + 1
        Loop
'        List1.AddItem ?
'        S2 = ?
        I1 = I1 + 1
    Loop While I1 <= Len(S1)
End Sub