Sub Sample() Dim num As Integer, str As String num = InputBox("数値を入力してください") str = IIf(num > 100, "big", "small") MsgBox str num = InputBox("数値を入力してください") str = IIf(num < 100, num / 2, 2 / num) MsgBox str End Sub