[VBScript] Convertitore ASCII

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