Private Sub Command1_Click()
Dim b As Integer, a As String, I As Integer, c As String, d As String
a = Text1.Text
c = "": d = ""
For I = 1 To Len(a)
b = Asc(Mid(a, I, 1))
If (b >= 65 And b <= 90) Or (b >= 97 And b <= 122) Then
d = d & Mid(a, I, 1)
Else
If d <> "" Then c = c & d & vbCrLf
d = ""
End If
Next I
Print c
End Sub
Private Sub Command1_Click()
Dim a() As String
a = Split(Text1.Text)
For i = 0 To UBound(a)
Print a(i)
Next
End Sub
如果每个单词用一个空格" " 隔开你可以这样
dim a() as string '定义存放单词的数组
a=split(trim(text1.text)," ")