こんにちは。解らなくなってきたので伝授お願いします。

テキストボックスAに入力された文字を16進数としてテキストボックスBに入力された数値の数だけ
カウントアップしたいのですが文字として扱ってしまうために普通のカウントになってしまいます。

文字を10進数に変換してそれを再度16進数へ変換しカウントさせようとしましたが、
    
    Dim sHex    As String
    sHex = "X001"
    MsgBox Val("&H" & sHex)
    MsgBox Hex(Val("&H" & sHex))

両方とも「0」と表示されてしまいます。。。
どんな方法で行ったほうがよろしいのでしょうか？

>     sHex = "X001"
VBの16進数表記に「X」は必要ないです。

これだと、

>     MsgBox Val("&H" & sHex)
"&HX001"
と言う文字列になってしまいます。
Xを取り去って、
"&H001"
の様な文字列になるようにしてください。

ありがとうございます。
文字列のXを取り除いたら0を省く数値を取得することができました。

これを16進数としてカウントさせたいのですがiが10まで行ったらA , B, Cと表示させたいのですが
10,11,12・・・となってしまいます。
HEX関数で16進数に変換しているのですが関係ないのでしょうか？

sHex = "00"
        
For i = 0 To 32
    MsgBox Hex(Val("&H" & sHex & i))
Next i

000,001・・・00A・・・00F…010,011・・・01A・・・01Fとしたいです。

> これを16進数としてカウントさせたいのですがiが10まで行ったらA , B, Cと表示させたいのですが
> 10,11,12・・・となってしまいます。
> HEX関数で16進数に変換しているのですが関係ないのでしょうか？
>
> sHex = "00"
>        
> For i = 0 To 32
>     MsgBox Hex(Val("&H" & sHex & i))
> Next i
>
> 000,001・・・00A・・・00F…010,011・・・01A・・・01Fとしたいです。


何がしたいのかよく解らないが、こう言う事ですか？
Private Sub Command1_Click()
   Dim i As Long
   Dim sHex As String
   sHex = "00"
   For i = 0 To 32
      Debug.Print Right$(sHex & Hex(i), 3)
   Next i
End Sub

説明がわかりにくくてすみません。

ありがとうございます。
LOOPさせる数値をカウントさせ16進数に変換させるんですね。