Public Function EnumServer(lServerType As Long) As ListOfServer
   ...
 
        sDomain = StrConv("MeineWunschDomäne", vbUnicode)
 
        'Call NetServerEnum to get a list of Servers
        nRet = NetServerEnum(yServer(0), 101, lServerInfo, _
                             lPreferedMaxLen, lEntriesRead, _
                             lTotalEntries, lServerType, _
                             sDomain, vResume)
    ...        
 
End Function