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

Формулировка задачи:

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

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
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