Private Sub CmdIzracunaj_Click()
    Dim X As Integer
    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

    privremeno = (X - ZBI)

    If privremeno >= 0 Then
        Y = Sqr(privremeno * X)

        TekstIspis.Text = Y
    End If
    ' ne ide dalje jer je broj manji od 0
End Sub