5. Число от 100 до 200

Sub Demo()
    Dim num As Integer
    num = 20000

    Dim result As String
    If num < 100 Then
        result = "Less than 100"
    ElseIf num <= 200 Then
        result = "Between 100 and 200"
    Else
        result = "Greater than 200"
    End If

    Debug.Print result
End Sub