Выполните форматный вывод значений переменной на форму, в окно TextBox - VB

Private Sub Command1_Click()
    Dim a As Double, b As Double, c As Double, d As Double, t1 As Double, t2 As Double, x1 As Double, x2 As Double
    a = CDbl(Text1)
    b = CDbl(Text2)
    c = CDbl(Text3)
    Picture1.Cls
    d = b ^ 2 - 4 * a * c
    Picture1.Print "Дискриминант ="; d
    Select Case d
        Case Is < 0
            t1 = -b / 2 * a
            t2 = Sqr(-d) / 2 * a
            Picture1.Print
            Picture1.Print "X1="; Round(t1, 6) & "+" & IIf(t2 <> 1, Round(t2, 6), vbNullString) & "i"
            Picture1.Print "X2="; Round(t1, 6) & "-" & IIf(t2 <> 1, Round(t2, 6), vbNullString) & "i"
        Case Is = 0
            x1 = -b / (2 * a)
            Picture1.Print
            Picture1.Print "X1=X2="; Round(x1, 4)
        Case Else
            x1 = (-b + Sqr(d)) / (2 * a)
            x2 = (-b - Sqr(d)) / (2 * a)
            Picture1.Print
            Picture1.Print "X1="; Round(x1, 6)
            Picture1.Print "X2="; Round(x2, 6)
    End Select
End Sub