Faça uma aplicação VBA que identifique se a radiação é aceitável ou se não, em qual grupo uma determinada indústria se aplica.

Sub lista_8()
'8) A secretaria do meio ambiente que controla os índices de radiação no Japão, mantém três grupos de
'industrias que são atualmente prejudiciais ao meio ambiente. O índice de radiação aceitável varia de 0,05
'até 0,5. Se o índice variar entre 0,26 e 0,30 as indústrias do 1ºgrupo são intimadas a suspenderem suas
'atividades, se o índice variar entre 0,31 e 0,40 as industrias do 1º e 2º grupos são intimadas a
'suspenderem suas atividades, se o índice for acima de 0,41 todos os grupos devem ser notificados
'(1º,2º,3º).
'Sua tarefa: Faça uma aplicação VBA que identifique se a radiação é aceitável ou se não, em qual grupo uma
'determinada indústria se aplica.

Dim indic As Integer
Dim mensagem As String

indic = Val(InputBox("Indique Indice Radação do Momento: "))


    If (indic >= 26) And (indic <= 30) Then
        mensagem = "Suspender Atividades Das Industrias do Grupo 1"
     
    ElseIf (indic > 30) And (indic <= 40) Then
        mensagem = "Suspender Atividades Das Industrias dos Grupos 1 e 2"
 
    ElseIf (indic < 25) Then
        mensagem = "Indice Normal Sem Risco de Radiação"
 
    Else
        mensagem = "Suspender Atividades das Industrias do Grupos 1,2,3"
     
    End If
    MsgBox mensagem

End Sub