Decimal To ASCII
This algorithm converts decimal numbers to ASCII code.
Public Shared Function DecimalToASCII(dec As String) As String
Dim ascii As String = String.Empty
For i As Integer = 0 To dec.Length - 1 Step 3
ascii += CChar(ChrW(Convert.ToByte(dec.Substring(i, 3))))
Next
Return ascii
End Function
Example
Dim data = "080114111103114097109109105110103032065108103111114105116104109115"
Dim value = DecimalToASCII(data)
Output
Programming Algorithms