Oluşturduğum hesap formunda 4 işlemli hesaplar yaptırıyorum. İşlemin sonunda çıkan sonuca göre 4 farklı seçeneğim var çıkan sonuç bu 4 farklı değerde hangisine daha yakın ise onun karşısındaki değeri textbox'a yazdırmak istiyorum. Şöyle bir kod yazdım hesabı yaptırıyorum ama çıkan sonuca göre değer aralıklarını belirtemiyorum. Yardımcı olursanız sevinirim.

If IsNumeric(dm.Text) And IsNumeric(dv1.Text) Then

'Hesap Alanı
hız1.Text = Val(dm.Text) * Val(dv1.Text)

'Değer Aralık Alanı
If Val(hız1.Text) > 400000 Then
yag1.Text = "ISO VG 22"
If 400000 > Val(hız1.Text) > 200000 Then
yag1.Text = "ISO VG 100"
If 200000 > Val(hız1.Text) > 100000 Then
yag1.Text = "ISO VG 150-220"
If 100000 > Val(hız1.Text) Then
yag1.Text = "ISO VG 460-1500"
End If
End If
End If
End If
End If