入力ボックスの戻り値を計算に使用

Sub Macro0431()
Dim p As Integer, t As Integer
p = Application.InputBox(Prompt:=”金額を入力してください”, _
Type:=1)
If p <> 0 Then
t = p * 1.1
MsgBox “税込み金額は” & t & “円です”
End If
End Sub