Attribute VB_Name = "basAsciiValue"
Option Compare Database
Option Explicit

Sub TheAsciiIs()

' Purpose : This procedure will determine the Ascii value of a character.
    ' Notes : The results will be shown in a message box.

Dim Char As String
Dim Response As String

CharInput:
Char = InputBox("Enter the character to be converted...", "Ascii Conversion")

If Len(Char) < 1 Or Len(Char) > 1 Then  'only one character may be converted at one time.
    MsgBox "You must enter only one (1) character." & vbNewLine & _
           "You have entered " & Len(Char) & " characters!" _
           , vbInformation + vbOKOnly, "Ascii Conversion"
    DoCmd.CancelEvent
           GoTo CharInput
End If

Response = Asc(Char)

'Your answer awaits....
MsgBox "The Ascii of " & Char & " is equal to: " & Response, , "Ascii Conversion"

End Sub