'Statt
 
If lblAusgabe.Text > "-0,3" And lblAusgabe.Text < "0,3" Then
   Label15.Text = Label15.Text + 1
End If
 
'so
 
'Die Zeichenfolge von lblAusgabe muß zuvor auf Gültigkeit getestet werden ( 
' tryparse)
If CDec(lblausgabe.Text) > -0.3 And CDec(lblausgabe.Text) <= 0.3 Then
   'label15.text muß numerisch (mit "0") initialisiert worden sein
   label15.Text = (CInt(label15.Text) + 1).ToString
End If