Sorunu buldum teşekkür ederim. Şöyle yazdım oldu....
If IsNumeric(dm.Text) And IsNumeric(dv1.Text) Then
hız1.Text = Val(dm.Text) * Val(dv1.Text)
If hız1.Text > 400000 Then
yag1.Text = "ISO VG 22"
End If
If 400000 > hız1.Text And hız1.Text > 200000 Then
yag1.Text = "ISO VG 100"
End If
If 200000 > hız1.Text And hız1.Text > 100000 Then
yag1.Text = "ISO VG 150-220"
End If
If 100000 > hız1.Text Then
yag1.Text = "ISO VG 460-1500"
End If
End If
End Sub