Private Sub CommandButton1_Click()

Dim kubun As String



If Trim(TextBox1.Text) Like "* *" Then

'Step1 文字の間に空白があれば「熟語」
kubun = "熟語"
Else
'Step2 文字の間に空白がなければ「単語」
kubun = "単語"

End If


'Step3 文字の一番右が「.」だったら、「文」
If Right(Trim(TextBox1.Text), 1) = "." Then '
kubun = "文"
End If

'Step4 文字の一番右が「?」だったら、「文」
If Right(Trim(TextBox1.Text), 1) = "?" Then '
kubun = "文"
End If

'Step5 文字の一番右が「!」だったら、「文」
If Right(Trim(TextBox1.Text), 1) = "!" Then '
kubun = "文"
End If


MsgBox TextBox1.Text & " ---> " & kubun

End Sub