Declare Function GetPLCInfo Lib "user.dll" (ByVal infostr As byte(),  ByVal _
  maxsize0 As Long) as Boolean
 
 
Dim infosstr(100) as byteIf (GetPLCInfo(infostr, 100) = False) Then
    MsgBox("Error in  GetPLCInfo ")
Else
    'Daten ausgeben
End If