Private Sub cmbWord()


'分解して、リストボックスに表示


Dim i As Long


'文字列をととのえる
TextBox2.Text = StrConv(TextBox1.Text, vbNarrow) '全角文字を半角にする

TextBox2.Text = Trim(TextBox2.Text) '　trim
TextBox2.Text = Replace(TextBox2.Text, ",", "") '　指定文字を空白にする
TextBox2.Text = Replace(TextBox2.Text, ".", "") '　指定文字を空白にする
TextBox2.Text = Replace(TextBox2.Text, "?", "") '　指定文字を空白にする
TextBox2.Text = Replace(TextBox2.Text, "!", "") '　指定文字を空白にする
TextBox2.Text = Replace(TextBox2.Text, """", "") '　指定文字を空白にする


'前回のデータを削除
ComboBox1.Clear
ListBox1.Clear

i = 0

Do Until InStr(1, TextBox2.Text, " ", 1) = 0

ComboBox1.AddItem Trim(Left(TextBox2.Text, InStr(TextBox2.Text, " ")))
ListBox1.AddItem Trim(Left(TextBox2.Text, InStr(TextBox2.Text, " ")))
TextBox2.Text = Trim(Mid(TextBox2.Text, InStr(1, TextBox2.Text, " ", 1)))

DoEvents

i = i + 1


If i = 100 Then

Exit Do

End If

Loop


If InStr(1, TextBox2.Text, " ", 1) = 0 Then
ComboBox1.AddItem Trim(TextBox2.Text)
ListBox1.AddItem Trim(TextBox2.Text)
TextBox2.Text = ""
End If


End Sub