Sub Sample() Dim a As Integer, b As Double, pi As Double a = InputBox("角度を入力してください") pi = 4 * Atn(1) b = a * (pi / 180) MsgBox Sin(b) 'サインを返します End Sub