elsif

Sub Macro0420()
Dim x As Integer
x = Range(“A1”).Value
If x >= 100 Then
MsgBox “xは100以上です”
ElseIf x >= 50 Then
MsgBox “xは50以上100未満です”
ElseIf x >= 10 Then
MsgBox “xは10以上50未満です”
Else
MsgBox “xは10未満です”
End If
End Sub