PB Dll string return

Procedure _EXT_Files_File_Get(Name.s, *Result)
  Protected String.s

  String = Files_File_Get(Name)

  If *Result
    ProcedureReturn PokeS(*Result, String, -1, #PB_String_NoZero)
  Else
    ProcedureReturn StringByteLength(String)
  EndIf
EndProcedure