[scl]

Salvatelo con il blocco note/gedit sul desktop o dove volete chiamandolo "nome.vbs"

Codice:

SUB Convertitore()
Chiedo = MsgBox("scegliere si per convertite un  carattere in ASCII, scegliere no per convertire un carattere ASCII nel  suo corrispondente (e annulla per uscire)", vbYesNoCancel +  vbInformation,"Convertitore")
If Chiedo = vbYes Then
MyCaracter =  InputBox("Inserisci una lettera che verrà convertita nel suo  corrispondente in ASCII","Convertitore Carattere - ASCII")
If (MyCaracter <> Empty) Then
Convert = Asc(MyCaracter)
MsgBox Convert, vbInformation
Convertitore()
Else
Cancel()
End If
Elseif Chiedo = vbNo Then
MyASCII  = InputBox("Inserisci un carattere in ASCII che verrà convertito nel  suo corrispondente","Convertitore ASCII - carattere")
If (MyASCII <> Empty) Then
Convert = Chr(MyASCII)
MsgBox Convert, vbInformation
Convertitore()
Else
Cancel()
End If
Else
Cancel()
End If
End SUb
Convertitore()

Sub Cancel()
'serve ad uscire
End Sub

Fonte: autoitfanclub