Sub ki133()
     msg = "ASCコ−ドを取得する文字を入力してください。"
    moz = Application.InputBox(msg, "文字入力", "", Type:=2)
    If moz = "" Then
       Exit Sub
    End If
    MsgBox "文字｢" & moz & "」のASCコ−ドは" & Chr$(10) & _
    Chr$(10) & "  →→  &H" & Hex(Asc(moz))
End Sub