Equacao 2 Grau

Lembrando os velhos tempos, escrevi o programa que resolve equacoes do segundo grau no Microsoft Small Basic, vamos ao codigo-fonte :

equacaoSegundoGrau.sb

' Programa Equacao do Segundo Grau
' Codigo para resolucao de equacoes do segundo grau
' para Microsoft Small Basic
valorA = 0
valorB = 0
valorC = 0
delta = 0
raiz = 0
x1 = 0
x2 = 0

TextWindow.WriteLine("EQUACAO 2 GRAU")
TextWindow.Write("Informe o valor A : ")
valorA = TextWindow.ReadNumber()
TextWindow.Write("Informe o valor B : ")
valorB = TextWindow.ReadNumber()
TextWindow.Write("Informe o valor C : ")
valorC = TextWindow.ReadNumber()

'calcular delta
delta=(valorB*valorB)-4*valorA*valorC

'se o valor de delta for positivo ou igual a zero
If (delta>=0) Then
raiz = Math.SquareRoot(delta)
x1 = (raiz-valorB)/(2*valorA)
x2 = ((raiz-valorB)/(2*valorA))*(-1)
TextWindow.WriteLine("Valor X1 = " + x1)
TextWindow.WriteLine("Valor X2 = " + x2)
Else
TextWindow.WriteLine("Delta negativo!")
TextWindow.WriteLine("Nao existe solucao dentro do conjunto dos numeros reais.")
TextWindow.WriteLine("Implemento isso outra hora :-)")
EndIf

Detalhe que este foi o primeiro problema que resolvi quebrando a cabeca na epoca do BASIC. Ate a proxima :-)