これで、うまくできました。ありがとうございます。 If LenWid(Chr$(KeyAscii)) = 2 _ Or Chr$(KeyAscii) = Space$(1) Then KeyAscii = 0 Exit Sub End If