Private Function Nasob(ArcBId As Long, Id As Long,NumItems As Long, UserParams As Variant) As Variant

    Dim D2ObjData As VBApi_TUniVal

    Dim ret As Long

    Dim value As Variant

' Inicializacia

    If Id = -1 And NumItems = -1 Then

        On Error GoTo InvalidParams

        value = UserParams(1) * 2 ' otestujem ci je parameter cislo

        On Error GoTo 0

        Nasob = RetOk

        Exit Function

    End If

    If Id = NoDataTime Then

        Nasob = "Nemám dáta"

        Exit Function

    End If

    If Id = NoDataValid Then

        Nasob = "Neplatné dáta"

        Exit Function

    End If

    ret = GetActualD2DataObj(Id, D2ObjData) ' poziadam o aktualne data

    If ret = RetOk Then

        On Error GoTo InvalidEnum

        value = D2GetSpecificProperty(D2ObjData, D2ValueValue) ' ziskam hodnotu

        Nasob = value * UserParams(1) ' vynasobim 2

        On Error GoTo 0

    Else

        Nasob = "Nemám dáta"

    End If

    Exit Function

InvalidEnum:

    Nasob = "Nepodaril sa výpočet"

    Exit Function

InvalidParams:

    Nasob = "Pozadujem parameter cislo"

    Exit Function

End Function