'Devi verificare che non sia vuota il valore, se no da errore in Single.Parse()
        If (txtSanzione.Text.ToString() = "") Then
            txtSanzione.Text = 0
        End If

        Dim valoreSanzioneInserito As Single
        valoreSanzioneInserito = Single.Parse(txtSanzione.Text.ToString(), New System.Globalization.CultureInfo("en-US"))

        lbRata.Text = recuperaRataFascia(valoreSanzioneInserito)