VB编程之后提示溢出怎么处理(关键词-Select)

Question

请问再VB编程之后老是提示溢出怎么处理？
v = "0123456789ABCDEF"
Do
if value < 16 Then s = Mid ( v,value +1,1) & s: Exit Do
m = value Mod 16
s = Mid(v,m + 1, 1) & s
If value = 16 Then s = 1 & s: Exit Do
value = (value - m ) / 16
Loop
Select Case len(s)
Case 1
value = "0000" + cstr(s)
Case 2
value = "000" + cstr(s)
case 3
value = "00" + cstr(s)
case 4
value = "0" + cstr(s)
case 5
value = cstr(s)
End Select

Answer 1

所有的 變數 都沒有定義。
猜測是這樣：

    Sub HexStr(ByVal value As Integer)
        Dim m As Integer
        Dim v As String
        Dim s As String

        v = "0123456789ABCDEF"
        s = ""

value 已經是 integer，後面的
value = "0000" + cstr(s)
不可把 字串放入 數字里。
可以考慮用
dim value2 as string
value2 = "0000" + cstr(s)