10 lines
249 B
Text
10 lines
249 B
Text
Public Sub Form_Open()
|
|
Dim sChar As String
|
|
|
|
sChar = InputBox("Enter a character")
|
|
Print "Character " & sChar & " = ASCII " & Str(Asc(sChar))
|
|
|
|
sChar = InputBox("Enter a ASCII code")
|
|
Print "ASCII code " & sChar & " represents " & Chr(Val(sChar))
|
|
|
|
End
|