Private Sub CmdIzracunaj_Click()
    Dim X As Double
    Dim ZBI As Integer
    Dim Y As Double
    Dim privremeno As Double

    X = TekstX.Text
    ZBI = TekstZBI.Text

    If ZBI < 1 Then
        ZBI = 10
    End If


    If X <> -10 Then
        privremeno = 2 * (X * X) - 5 * X - 4

        Y = privremeno / (X + 5)

        TekstIspis.Text = Y
    End If
End Sub