Private Sub Command1_Click()
    Dim st$, ch$
    Open App.Path & "\in3.txt" For Input As #1
    Do While Not EOF(1)
        Input #1, ch
'        st = ? & ch
    Loop
    Close #1
    Text1 = st
End Sub
Private Sub Command2_Click()
    Dim st$, word$, c$
    st = Text1
    n = Len(st)
    For k = 1 To n
'        ? = Mid(st, k, 1)
        If c <> " " Then
            word = word & c
        Else
            List1.AddItem word
'            ? = ""
        End If
    Next
    List1.AddItem word
End Sub