Declare Function AdatBekeres Lib "dll_form.dll" () As Integer

Sub Makro1()
  ActiveCell.FormulaR1C1 = AdatBekeres
End Sub

