Sub ByteArrayToDecimal() Dim byteArray(11) As Byte Dim decimalValue Dim i As Long For i = 0 To 11 byteArray(i) = &HFF Next i For i = 0 To 11 decimalValue = decimalValue + CDec(byteArray(i)) * 256 ^ i Next i Debug.Print "Decimal Value: " & decimalValue Debug.Print "Decimal MaxValue: " & CDec("79,228,162,514,264,337,593,543,950,335") End Sub