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