H = Len(NM)

For L = 1 To H
If Mid(NM, L, 1) Like "[0-9]" Then
MsgBox "数字は入力できません"
GoTo A
ElseIf Mid(NM, L, 1) Like "[０-９]" Then
MsgBox "数字は入力できません"
GoTo A
ElseIf Mid(NM, L, 1) Like "[a-z]" Then
MsgBox "英字は入力できません"
GoTo A
　　　　　　　　　　　　・
　　　　　　　　　　　　・
　　　　　　　　　　　　・
ElseIf Mid(NM, L, 1) Like "[ ]" Then
MsgBox "スペースは入力できません"
GoTo A
ElseIf Mid(NM, L, 1) Like "[　]" Then
MsgBox "スペースは入力できません"
GoTo A
End If
Next L