Problema de VB, ¡ayuda urgente!

Dim?t#,?k#

t?=?Val(Text1.Text)

¿Seleccionar?Caso? t

Caso?Es?lt;?1000:?k?=?1

Caso?Es?lt;?2000:?k?=?0.9

Caso? Es?lt;?3000:?k?=?0.85

Caso?Es?lt;?4000:?k?=?0.8

Caso?Else:?k?= ?0.7

End?Select

Label1.Caption?=?"La cantidad gastada por el usuario en compras es: "? amp;?t?*?k?amp;? "Dólar".

¿Fin?