Dim x1 As Long
Dim x2 As Long
Dim p As Long
Dim q As Long
 
Private Sub Command1_Click()
q = Text1
p = Text2
 
    If (p / 2) ^ 2 - q > 0 Then
        lblx1 = -p / 2 - (Sqr((p / 2) ^ 2 - q))
    Else
        lblx1.Caption = "n.d."
    End If
    If (p / 2) ^ 2 - q > 0 Then
        lblx2 = -p / 2 + (Sqr((p / 2) ^ 2 - q))
    Else
        lblx2.Caption = "n.d."
    End If
 
End Sub