OK, Howard, Les,

I think I've got it right this time. See the following code.
Code:

$RunCount = 0

$UserDir = Dir ('O:\Documents and Settings')
While $UserDir <> '' AND @ERROR = 0
  	$User = Ucase (Left ($UserDir,2))
	$Length = Len ($UserDir)
	If $User = 'NP' AND  $Length = 8
  		$UserArray[$RunCount] = Ucase ($UserDir)
  		$RunCount = $RunCount + 1
	EndIf
  	$UserDir = Dir()
Loop

ReDim PRESERVE $UserArray[$RunCount-1]


Thanks for helping me out!
_________________________
-------------------------------------------------------------- With kind regards, GyroTwister