Wyświetlenie kodów znaków ascii

Set MyShell = Wscript.CreateObject("Wscript.Shell")
Set IE = CreateObject("InternetExplorer.Application")
MsgBox "Nie można wyświetlić kodów ASCII od 07 di 13 i od 28 do 31 !"
Do While IE.Busy
Loop
IE.width=300
IE.height=600
IE.Visible=1
IE.navigate "About:Kody ASCII"
for n = 1 to 255
Out = Out & " 0" & n & " = " & chr(n) & "<br>"
next
ie.document.Body.InnerHTML=Out