ASP return part of a string

Dim strStartPos
Dim strEndPos
Dim strLength
Dim strWorkText 
Dim strSearchString
Dim strEndStringChars

Sub PullStrings(strSearchString, strEndStringChars)
 strStartPos = 1
 strEndPos = 0
 strLength = 0
 'Find the Start Position of the Search String 
 strStartPos = instr(strWorkText,strSearchString)
 
 'Starting from the Search String ,   
 'find the beginning postion of the End String of Chars
 strEndPos = instr(strStartPos + len(strSearchString), strWorkText, strEndStringChars)
 
 'Compute the length of the string in between the start and end positions
 strLength = strEndPos - strStartPos
 On Error Resume Next  'In case anything is screwed up with the start/end strings, this will grab everything
 
 'Pluck the string out of the work text
 strWorkText = mid(strWorkText,strStartPos,strLength)
End Sub
strWorkText = YOUR_STRING
PullStrings "CPU ", " "