如何让两根在一个label里显示

4个标签
Label1的Caption属性   请输入二次项系数：   含冒号
Label2的Caption属性   请输入一次项系数：
Label3的Caption属性   请输入常数项：
Label4的Caption属性   为空
3个文本框
Text1、2、3的Caption属性都设为空
1个命令按钮
Caption属性设为  点击此处求解
命令按钮代码

Private Sub Command1_Click()

 If Val(Text2.Text) ^ 2 < 4 * Val(Text1.Text) * Val(Text3.Text) Then
   Label4.Caption = "因为Δ<0，所以无实根"
  Else
    Label4.Caption = "X1=" & -Val(Text2.Text) / 2 + Sqr(Val(Text2.Text) ^ 2 - 4 * Val(Text1.Text) * Val(Text3.Text)) / 2 & "，X2=" & -Val(Text2.Text) / 2 - Sqr(Val(Text2.Text) ^ 2 - 4 * Val(Text1.Text) * Val(Text3.Text)) / 2
  End If
End Sub

请测试---不足之处：如果解得无理数根，则显示小数，且负值如果整数部分为0，显示“-.23586555”。
敬请高手完善！

对不起--4个除以2后边忘了加上“/ Val(Text1.Text)”--不含双引号