[Visual Basic] Problema in programmazione

[ttesports]

Ciao a tutti,

Premetto di essere alle prime armi riguardo la programmazione e sto iniziando ad imparare con vb 2010. Ho cercatodi scrivere un programma che mi calcolasse il risultato delle equazioni di 2° grado. Ho scritto tutto il codice ed alla fine ho terminato la codifica con 0 errori nel registro.
Adesso però quando eseguo il debug e scrivo una qualsiasi equazioni, mi da il seguente errore:
Cast non valido dalla stringa "-b+str(d)" al tipo 'Double'.

Ecco il codice che ho scritto dietro il command

Private Sub Button1_Click( ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles Button1.Click
        dim a,b,c as integer
        dim d, x1, x2 as single

        A = val(TextBox1.text)
        B = val(TextBox2.text)
        C = val(TextBox3.text)

        D = b^2-4*a*c
        If D>0  then
                   x1 = ("-b+str(d)")/(2*a)
                   x2 = ("-b-str(d)")/(2*a)

                TextBox4.text = "x1, x2"
                else
           If D=0 then
                x1 = -b/(2*a)
                x2 = x1
                
                TextBox4.text = "x1, x2"
                else
                TextBox4.text = "Impossibile"


            End if


         End if
        
    
End Sub

Potete aiutarmi?
Grazie

[AllerITA]

vedo alcune cose che non mi sembrano coerenti nelle espressioni

x1 = ("-b+str(d)")/(2*a)
x2 = ("-b-str(d)")/(2*a)
perché utilizzi le variabili b, d e a che sono solo inizializzate, cioè dovrebbero valere
se non sbaglio 0, quindi 1/0 dovrebbe dare infinito e forse causare il problema.
Oltre a ciò ti conviene forse utilizzare direttamente l'espressione senza fare
ricorso al cast implicito da stringa a double così:

x1=(d-b)/(2*a)
x2=(d-b)/(2*a)
quindi usare str(x1) e str(x2) se vuoi utilizzare le stringhe.
E una cosa importante il maiuscolo e minuscolo conta "a" e' diverso da "A".
Poi ti consiglio di studiare bene le stringhe perché vedo anche altri errori.