Dim weight as Decimal = Decimal.Parse(WeightTextBox.Text) 
   If weight  >= 0 AndAlso weight <= 10 Then

        HandDecimal = 1

    ElseIf weight  > 10 AndAlso weight <= 100 Then

        HandDecimal = 3

    ElseIf weight > 100 Then

        HandDecimal = 5

    End If