[Resolvido]if com duas condições

boa tarde,
tenho um campo calculado no formulário e quero que quando esse campo for preenchido aconteça o seguinte:
se o valor for >=3,5  preencher outro campo plagio com o valor " normal"
se o valor for > 3,5 e <= 6,25 preencher o campo plagio com o valor "leve"
se o valor for > 6,25  e <= 8,75 preencher o campo plagio com o valor "moderado"
se o valor for > 8,75 e <= 11 preencher o campo plagio com o valor "severa"
se o valor for > 11 preencher o campo plagio com o valor "muito severa"

coloquei assim, mas não está funcionando corretamente.

Private Sub cvai_calc_Click()


If cvai_calc <= "3,5" Then
Me.plagio = "normal"

ElseIf cvai_calc > "3,5" And cvai_calc < "6,25" Then
Me.plagio = "leve"

ElseIf cvai_calc > "6,25" And cvai_calc < "8,75" Then
Me.plagio = "moderado"

ElseIf cvai_calc > "8,75" And cvai_calc < "11,00" Then
Me.plagio = "severo"

ElseIf cvai_calc > "11,00" Then
Me.plagio = "muito severo"
End If

End Sub

agradeço se alguém puder me ajudar.

Boa tarde.
Troque o And por OR

Código:

ElseIf cvai_calc > "3,5" or cvai_calc < "6,25" Then
Me.plagio = "leve"

Obrigado pela atenção.
alterei dessa forma: ( mas, esta dando erro em relação ao cálculo com as casas decimais. ) Ele não está considerando o número após a vírgula.)

Private Sub cvai_calc_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
a = "3,5"
b = "6,25"
c = "8,75"
d = "11"

If cvai_calc <= a Then
Me.plagio = "normalidade"

ElseIf cvai_calc > a And cvai_calc <= b Then
Me.plagio = "leve"

ElseIf cvai_calc > b And cvai_calc <= c Then
Me.plagio = "moderado"

ElseIf cvai_calc > c And cvai_calc <= d Then
Me.plagio = "severa"

ElseIf cvai_calc > d Then
Me.plagio = "muito severa"
End If

Código:

Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double

Obrigado Jpaulo!! agora deu certo.

Sucesso