code:

---

If $sExcludedInput.Text = ""
		$= $FORM.MsgBox("Invalid Netbios Name","Error")
	Else
		Dim $List	

		For $Loop = 0 to $sExcludedList.ListCount-1
		
			$sExcludedList.ListIndex = $Loop
			$List = $List + $sExcludedList.Text
     		If $Loop < $sExcludedList.ListCount - 1 
	      		$List = $List + "," 
			EndIf
		Next
		
		$xArray = Split($List,",")
		
		If NOT AScan($xArray,$sExcludedInput.Text) = "-1"
			$= $FORM.MsgBox('('+$sExcludedInput.Text+') is already In the Excluded List','Error')
		Else
			$sExcludedInput.Text = Ucase($sExcludedInput.Text)
			$sExcludedList.AddItem($sExcludedInput.Text)
		EndIf
		
		$sExcludedInput.Text = ""

---