Нахождение наибольшего из трех чисел, дискриминанта уравнения и его корней

Private Sub Command1_Click()
dim a as integer
dim b as integer
dim c as integer
dim min as integer
a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
min=a
if b<min then min=b
if c<min then min=c
print min
End Sub

Private Sub Command1_Click()
Dim a As Integer
Dim c As Integer
Dim b As Integer
Dim d As Single
Dim x1 As Single
Dim x2 As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b ^ 2 - 4 * a * c
x1 = (-b + d ^ 0.5) / (2 * a)
x2 = (-b - d ^ 0.5) / (2 * a)
Print "D="; d
Print "x1="; x1
Print "x2="; x2
End Sub

If d > 0 Then 
Label1.Caption = ( " Нет корней" )

Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim D As Single, x1 As Single, x2 As Single
Dim o As String
 
a = Val(InputBox("вводим а"))
If a = 0 Then
MsgBox "а не должно быть равно 0"
Exit Sub
End If
 
b = Val(InputBox("вводим b"))
c = Val(InputBox("вводим c"))
 
D = b ^ 2 - 4 * a * c
If D < 0 Then
o = "D = " & D & " < 0 :" & "     уравнение действительных корней не имеет"
Else
  If D = 0 Then
   o = "D = " & D & " = 0 :" & "      уравнение имеет 2 равных действительных корня: " _
   & vbLf & vbLf & "x1 = x2 = " & Round(-b / (2 * a), 4)
     Else
     o = "D = " & D & " > 0 :" & "       уравнение имеет 2 разных действительных корня:" & vbCrLf & vbCrLf & _
      "x1= " & Round((-b + Sqr(D)) / (2 * a), 4) & _
            "     ;     " & " x2=" & Round((-b - Sqr(D)) / (2 * a), 4)
End If
End If
Label1.Caption = o
'MsgBox o
'Me.Cls: Print o
End Sub