Декодирование 16, 32 разрядных чисел hex

s = InputBox ("Введите HEX-числа," & vbCrLf & "разделенные запятыми")
WScript.Echo("Исходная строка: " & s)  
a = Split(LCase(Replace(s, " ", "")), ",")
For i =0 To UBound(a)
    r = 0
    mv = 0
    For n = Len(a(i)) To 1 Step -1
        x = CStr(Mid(a(i), n, 1))
        Select Case x
        Case "0","1","2","3","4","5","6","7","8","9"
            v = CInt(x)
        Case "a": v = 10
        Case "b":   v = 11
        Case "c":   v = 12
        Case "d":   v = 13
        Case "e":   v = 14
        Case "f":   v = 15
        Case Else
            WScript.Echo("Недопустимый символ в строке - (" & x & ") <- (" & a(i) & ")")
            WScript.Quit(-1)
        End Select
        mv = mv + v*16^r
        r = r + 1
    Next
    WScript.Echo(a(i) & " - " & mv)
Next

Option Explicit
Dim strIn, strOut
Dim a, i
 
strIn = InputBox ("Введите HEX-числа," & vbCrLf & "разделенные запятыми")
' strIn = "7, 5, 12,  48, fxc, ddd, 8d, ff"
WScript.Echo("Исходная строка: " & strIn)
a = Split(LCase(Replace(strIn, " ", "")), ",")
strOut = ""
On Error Resume Next
 
For i = 0 To UBound(a)
  If i < UBound(a) Then strOut = strOut & CInt("&H" + a(i)) & ","
  If Err.Number > 0 Then
    WScript.Echo(a(i))
    WScript.Echo("для элемента " & a(i) & " - " & CStr(Err.Number) & " " & Err.Description)
    WScript.Quit(-1)
  End If
Next
strOut = strOut & CInt("&H" + a(i-1))
If Err.Number > 0 Then
  WScript.Echo(a(i))
  WScript.Echo("для элемента " & a(i) & " - " & CStr(Err.Number) & " " & Err.Description)
  WScript.Quit(-1)
End If
WScript.Echo(strOut)

strIn = InputBox("Введите значение REG_EXPAND_SZ (REG_MULTI_SZ)")
a = Split(strIn, ",")
 
For i = 0 To UBound(a) Step 2
  strOut = strOut & Chr(CInt("&H" + a(i)))
Next
 
'Урезаем Null '\0'
Do While Right(strOut, 1) = vbNullChar
  strOut = Left(strOut, Len(strOut) - 1)
Loop
 
'Копирование текста в буфер обмена
CreateObject("WScript.Shell").Run "cmd.exe /C <nul set /p ""=" & strOut & """ | CLIP", 0, False
 
ret = InputBox("Результат скопирован в буфер обмена", , strOut)

strIn = InputBox ("Введите текст для перевода в REG_EXPAND_SZ (REG_MULTI_SZ)")
 
For i = 1 To len (strIn)
  strOut = strOut & Hex(Asc(mid(strIn,i,1))) & ",00,"
Next
 
strOut = strOut & "00,00"
'Копирование текста в буфер обмена
CreateObject("WScript.Shell").Run "cmd.exe /C <nul set /p ""=" & strOut & """ | CLIP", 0, False
 
ret = inputbox ("Результат скопирован в буфер обмена",,strOut)