13バイト分の文字を表記するには？

解決

---

下のほうでタイトル「１３」と入力してしまったものです。
余計な掲示、申し訳ございません。。

13バイト分の文字を表記をさせたいのですが
かなり悩んでおります。

Goods_name には、
１・"漢字エリア難問今週のお題バナー"
２・"ウエディング結婚式幸福今週のお題バナー"
の2種類の文字で確認

strNameSP1 = Goods_name
strNameSP1 = StrConv(strNameSP1, vbNarrow)
strNameSP1 = StrConv(strNameSP1, vbFromUnicode)
strNameSP1 = MidB(strNameSP1, 1, 13)
iTempCnt1 = LenB(strNameSP1)
strTemp = StrConv(strNameSP1, vbUnicode)
iTempCnt2 = Len(strTemp)

If Not ((iTempCnt1 = iTempCnt2 * 2) Or (iTempCnt1 = iTempCnt2)) Then
    strNameSP1 = MidB(strNameSP1, 1, 12)
End If

strNameSP1 = StrConv(strNameSP1, vbUnicode)

１の場合は"漢字エリア難問・"
２の場合は"ウエディング結婚"
となり、１の"・"が無駄に入ってきます。。
これをなんとかして取りたい、又は入らないようにしたいのですが、
どうのような処理をしたらよいのでしょうか？
よろしくお願いいたします。

編集 削除

---

この手の問題は誰でも考えるからＷＥＢ検索すればサンプル見つかります。
キーワードは『全角  半角  判断  ＶＢ』あたり？
http://madia.world.coocan.jp/vb/vb_bbs/200311_03110098.html
上手くできないなら１文字ずつ切り取って判断する事です。
花ちゃんさんのサイトにレベルの高いサンプルありますが、
そのリンクも貼られてますね↑のスレッド

編集 削除

---

特攻隊長まるるうさん、ありがとうございます。。

過去スレもきちんと検索してから質問したほうがいいですね＾＾；

編集 削除

---

＞過去スレもきちんと検索してから質問したほうがいいですね＾＾；

してなかったのか…

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。