Dim oComputer As Object
  Dim oUser As Object
 
  Set oComputer = GetObject("WinNT://" & "Andritz.com")
  oComputer.Filter = Array("User")
 
  For Each oUser In oComputer
      If UCase$(Left$(oUser.Name, 3)) = "KRE" Then
          lstUser.AddItem oUser.Name
      ElseIf UCase$(oUser.Name) > "KREZZZZZ" Then
          Exit For
      End If
  Next

Gruss

Markus