If sanzione.Text = "" And speseadd.Text = "" And rateautorizzate.Text = "" Then
            MsgBox("Campi vuoti, impossibile proseguire!", vbInformation)

        End If
        totaleinteressi.Text = ((Val(sanzione.Text) * Val(interessi.Text).ToString("0.00") / 100) / 12).ToString("0.00") * Val(rateautorizzate.Text).ToString("0.00")
        nettomensile.Text = (Convert.ToDouble(sanzione.Text) / Convert.ToDouble(rateautorizzate.Text)).ToString("0.00")
        interessemensile.Text = (Convert.ToDouble(totaleinteressi.Text) / Convert.ToDouble(rateautorizzate.Text)).ToString("0.00")
        ratamensile.Text = (Convert.ToDouble(nettomensile.Text) + Convert.ToDouble(interessemensile.Text)).ToString("0.00")
        Label20.Text = (Convert.ToDouble(ratamensile.Text) * Convert.ToDouble(rateautorizzate.Text)).ToString("0.00")
        totaleversare.Text = (Convert.ToDouble(Label20.Text) + Convert.ToDouble(speseadd.Text)).ToString("0.00")
        speserata.Text = speseadd.Text
        rmensile.Text = (Convert.ToDouble(nettomensile.Text) + Convert.ToDouble(interessemensile.Text)).ToString("0.00") 'calcolo che a volte mi lascia vuoto
        rataspese.Text = (Convert.ToDouble(ratamensile.Text) + Convert.ToDouble(speserata.Text)).ToString("0.00") 'calcolo che a volte mi lascia vuoto
        sspese.Text = speseadd.Text
        If Val(nettomensile.Text) < 105.0 Then
            MsgBox("Importo minima rata 105.00€ aumentare numero rate!", vbCritical)
        End If
        totaleversare.Text = "€" & Format(totaleversare.Text)
        nettomensile.Text = "€" & Format(nettomensile.Text)
        interessemensile.Text = "€" & Format(interessemensile.Text)
        ratamensile.Text = "€" & Format(ratamensile.Text)
        Label20.Text = "€" & Format(Label20.Text)
        speserata.Text = "€" & Format(speserata.Text)
        ListView1.Items.Clear()