Private Sub Text1_Validate(Index As Integer, _
  Cancel As Boolean)
 
  Dim dblMin As Double
  Dim dblMax As Double
  Dim dblValue As Double
 
  dblMin = Val(Replace(Label1(Index), ",", "."))
  dblMax = Val(Replace(Label2(Index), ",", "."))
  dblValue = Val(Replace(Text1(Index), ",", "."))
 
  If dblValue < dblMin Or dblValue > dblMax Then
    Text1(Index).Text = ""
    Cancel = True
  End If
End Sub