sub HexToDec()
Dim HexStr$, nItem$, n%, nSum#
HexStr = _
  "5CA4301B4E463133DADADADADADA4D434842DADADADADADADA34345CA4301B4E463133DADAD" & _
  "DADADA4D434842DADADADADADADA3434"
n = 1;nSum=0
  Do Until n > Len(HexStr)
    nItem = "&H" & Mid(HexStr, n, 2)
    nSum = nSum + CDec(nItem)
    n = n + 2
  Loop
msgbox"Die Summe beträgt:" & vbcrlf & nSum
End Sub