Thanks all for the adivise and minor code corrections. Here is my final result, which appears to work exactly how I need it to.

Code:
 Dim $sType, $sLocation, $sLocation2, $sLocation3, $sFunction, $sNode, $sAsset, $sAsset2, $sAsset2

$machine = "S0002N01"
$computername = "Failed"
 
$sType=SubStr($machine,1,1)

Select
Case $sType = "S"
	$sLocation=SubStr($machine,2,4)
	$sFunction=SubStr($machine,6,1)
	$sNode=SubStr($machine,7,2)
	$sLocation2=Val($sLocation)
	Select
	Case Len($sLocation2) = 1 
		$sLocation3 = SubStr($sLocation,4)
		If $sLocation2=$sLocation3
			Select
			Case $sLocation >= "0002" AND $sLocation <= "0999"
				Select
				Case InStr('NLRHEKSV',$sFunction)
					$sNode2=Val($sNode)
					Select
					Case Len($sNode2) = 1
						$sNode3 = SubStr($sNode,2)
							If InStr('123456789',$sNode2) AND $sNode2=$sNode3
								$computername = "Store"
							EndIf
					Case Len($sNode2) = 2
						If $sNode=$sNode2 AND ($sNode >= "01" AND $sNode <= "99")
								$computername = "Store"
						EndIf
					EndSelect
				EndSelect
			EndSelect
		EndIf
	Case Len($sLocation2) = 2 
		$sLocation3 = SubStr($sLocation,3)
		If $sLocation2=$sLocation3
			Select
			Case $sLocation >= "0002" AND $sLocation <= "0999"
				Select
				Case InStr('NLRHEKSV',$sFunction)
					$sNode2=Val($sNode)
					Select
					Case Len($sNode2) = 1
						$sNode3 = SubStr($sNode,2)
							If InStr('123456789',$sNode2) AND $sNode2=$sNode3
								$computername = "Store"
							EndIf
					Case Len($sNode2) = 2
						If $sNode=$sNode2 AND ($sNode >= "01" AND $sNode <= "99")
								$computername = "Store"
						EndIf
					EndSelect
				EndSelect
			EndSelect
		EndIf
	Case Len($sLocation2) = 3 
		$sLocation3 = SubStr($sLocation,2)
		If $sLocation2=$sLocation3
			Select
			Case $sLocation >= "0002" AND $sLocation <= "0999"
				Select
				Case InStr('NLRHEKSV',$sFunction)
					$sNode2=Val($sNode)
					Select
					Case Len($sNode2) = 1
						$sNode3 = SubStr($sNode,2)
							If InStr('123456789',$sNode2) AND $sNode2=$sNode3
								$computername = "Store"
							EndIf
					Case Len($sNode2) = 2
						If $sNode=$sNode2 AND ($sNode >= "01" AND $sNode <= "99")
								$computername = "Store"
						EndIf
					EndSelect
				EndSelect
			EndSelect
		EndIf
	EndSelect
Case InStr('WL',$sType)
	$sAsset=SubStr($machine,2,6)
	$sAsset2=Val($sAsset)
	If Len($sAsset2) < 6
		$sAsset = SubStr($machine,3,5)
	EndIf
	Select
	Case $sAsset=$sAsset2
		If $sAsset >= "000001" AND $sAsset <= "999999"
			$computername = "Corp"
		EndIf
	EndSelect
EndSelect

? $computername
Of Course, if any one has any suggestions they are always welcome.
_________________________
penny = the target the playing field = three football fields side by side you = only allowed to stand on the outside of the playing field tool you get to use to find the penny = a ONE INCH LAWN DART get the level of difficulty?