Ascii-Code auslesen

Sub aus_zeichen_asciicode_auslesen()
Dim zeichen As String
Dim ausgabe As String
zeichen = InputBox("Bitte geben Sie ein Zeichen ein, für das Sie den Asciicode wissen wollen!",  _
"Eingabe")
ausgabe = ChrW(zeichen)
MsgBox ausgabe
End Sub

Gibt es eine Funktion die es ermöglicht den Ascii-Code auszulesen, weil hier wird ja nur aus dem Ascii-Code das Zeichen aussgelesen was ich aberr nicht haben will. Ich habe nichts im Internet gefunden!
Danke für eure Hilfe!