Visual Basic para Aplicaciones - Condicional

Hola estoy haciendo un form para excel y necesito saber como hacer que un textbox muestre lo siguiente:

La celda D1 muestra el resultado de una formula suma, entonces partiendo de ese resultado quisiera utilizar los comandos SELECT CASE o IF THEM ELSE para resolver lo siguiente pero no se como.

A2 <= D1 <= B2 entonces D1=C2
A3 <= D1 <= B3 entonces D1=C3
A4 <= D1 <= B4 entonces D1=C4
si D1 no se encuentra entre A2 y B4 muestra mensaje de error

y que el valor resultante lo guarde en E1 y lo muestre en un textbox.

Por favor, que alguien me ayude.
Gracias

Sub verificar()

dim valor as string

valorA2 = Range("A2").Value
valor


A2 <= D1 <= B2 entonces D1=C2
A3 <= D1 <= B3 entonces D1=C3
A4 <= D1 <= B4 entonces D1=C4
si D1 no se encuentra entre A2 y B4 muestra mensaje de error

if Range("A2").Value <= Range("D1").Value and Range("D1").Value <= Range("B2 ").Value then
Range("D1").Value=Range("C2").Value

Else
if Range("A3").Value <= Range("D1").Value and Range("D1").Value <= Range("B3 ").Value then

Range("D1").Value=Range("C3").Value
else

if Range("A4").Value <= Range("D1").Value and Range("D1").Value <= Range("B4 ").Value then
Range("D1").Value=Range("C4").Value

Else

MsgBox ("D1 no se encuentra entre A2 y B4")
end if

end if
end if

end sub


Saludos desde Argentina