VBAでの全角数字と半角数字の判断について

はじめまして、こんにちは。VBAのプログラムについて教えて欲しいのですが、「ぐう1」のように文字列の一番後ろの数字を削除するプログラムを作成したいです。asc関数を利用して

str="ぐう1234"
StrLenNum = Len(str)
If Asc(Right(str, 1)) >= 48 And Asc(Right(str, 1)) <= 57 Then
str = Left(str, StrLenNum - 1)

としたのですが、これでは
「ぐう１」という全角数字に対応することができませんでした。
全角文字に対応するにはどうすればよいでしょうか？
よろしくお願いします。

No.1 回答者： gatyan 回答日時： 2005/06/05 00:29

IsNumeric関数は使えませんか？

この回答へのお礼

ご返事遅くなりもうしわけございません。
おかげさまでできるようになりました。
ありがとうございます。

お礼日時：2005/06/27 21:02

No.2 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/06/05 01:56

If Asc(Right(str, 1)) >= 48 And Asc(Right(str, 1)) <= 57 Then

str = Left(str, StrLenNum - 1)

を

If Asc(StrConv(Right(str, 1),vbNarrow)) >= 48 And Asc(StrConv(Right(str, 1),vbNarrow)) <= 57 Then

に変更してやればいいです。

この回答へのお礼

ご返事遅くなりもうしわけございません。
おかげさまでできるようになりました。
ありがとうございます。

お礼日時：2005/06/27 21:02

No.3 回答者： Musaffah 回答日時： 2005/06/05 07:42

#2さんの回答で問題は解決していますが、

str="ぐう1234"
str=strConv(str, vbNarrow)　←これを追加
StrLenNum = Len(str)
・
・
・
とすれば最小限の変更でいけます。

この回答へのお礼

ご返事遅くなりもうしわけございません。
おかげさまでできるようになりました。
ありがとうございます。

お礼日時：2005/06/27 21:01