<pre><code>[u]Code:
 
frm:
 
' Instanzierung
 Set objClsSystemInfo = clsSystemInfo
' NICBezeichnung auslesen
 strNICBezeichnung() =  objClsSystemInfo.NICCardName
 for i = 0 to 5
   Debug.print strNICBezeichnung(i)
 Next
 
 
 
[u]dll-Name = clsSystemInfo:
Private mvarNicCardName() as String
 
 
Public Property Get  NICCardName() as String
   GetNICCardName
   NICCardName = mvarNicCardName()
End Property
 
' NicCardNamen auslesen und an die ArrayVariable -mvarNicCardName()- übergeben
 
 Private Sub NicCardName()
   ...
 End Sub