Sub ki134()
    msg = "文字を取得するASCコ−ドを入力してください。" & Chr$(10) _
          & "(入力したコ−ド番号は16進数として解釈）"
    moz1 = Application.InputBox(msg, "文字入力", "", Type:=2)
    If moz1 = "" Then
       Exit Sub
    End If
    moz = "&H" & moz1
    If IsNumeric(moz) = False Then
        MsgBox "入力した文字は16進数になりません"
        Exit Sub
    End If
    
    MsgBox "ASCコ−ド「" & moz & "」の文字は" & Chr$(10) & _
    Chr$(10) & "   →→→  " & Chr(moz)
End Sub