Select Case CDbl(TextBox1.Text)
      Case 0 To 60
        TextBox6.Text = "DHTG-65"
      Case Is > 60, Is <= 300
        TextBox6.Text = "DHTG-90"
      Case Else
        TextBox6.Clear()
    End Select

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de