Error: Microsoft VBScript runtime error '800a000d'...Type Mismatch

Args = WScript.Arguments
 WScript.Arguments.Count <  
Err = 
WScript.Echo 
WScript.Echo 
Wscript.Echo 
Wscript.Echo 
Wscript.Echo 
Wscript.Echo 
Wscript.Echo 
Wscript.Echo  
Wscript.Echo 
Wscript.Echo 
Wscript.Echo 
Wscript.Quit(Err)

serverlist = Args.Item()
warn = Args.Item()
crit = Args.Item()
 WScript.Arguments.Count >  
	criteria = Args.Item()
  
	criteria = least

 objShell = CreateObject()
strCommand =  & serverlist
 objProc = objShell.Exec(strCommand)

 = 
strOutput = 
   objProc.StdOut.AtEndOfStream
	 = objProc.StdOut.ReadLine
	 InStr(, ) 
		strOutput = strOutput & 

 myRegExp =  RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = True
myRegExp.Pattern = 
 myMatches = myRegExp.Execute(strOutput)

result = 
 myMatches().SubMatches() <>  
	result = myMatches().SubMatches()
 
Wscript.Echo 
Wscript.Echo result
Wscript.Echo warn
Wscript.Echo crit
Wscript.Echo 
Wscript.Echo  & result+warn+crit
Wscript.Echo 
Wscript.Echo warn+crit
warn=CDbl(warn)
crit=CDbl(crit)
Wscript.Echo warn+crit

Wscript.Echo result

  myMatch  myMatches
	 myMatch.SubMatches() <>  
		 criteria =  
			 abs(result) < Abs(myMatch.SubMatches()) 
				result = myMatch.SubMatches()

			Wscript.Echo result+
			 Abs(result) > Abs(myMatch.SubMatches()) 
				result = myMatch.SubMatches()

	Wscript.Echo myMatch.SubMatches() & 

Wscript.Echo result
warn=CDbl(warn)
crit=CDbl(crit)
result=CDbl(result)
result=Abs(result)

 result =  
	Err = 
	Status = 
   result > crit 
	Err = 
	status = 
   result > warn 
	Err = 
	status = 
  
	Err = 
	status = 

Wscript.Echo  & status &  & result &  & result &  & warn &  & crit & 
Wscript.Quit(Err)

-------------------
-0.9285995 //определяет сдвиг времени (переменная result)
15 //отклонение для значения warning (переменная warn)
60 //отклонение для значения critical (переменная crit)
-------------------
1 -0.92859951560 //складываю 3 значения этих, судя по результату это были string переменные
-------------------
75 // преобразовал warning и critical значения через CDbl() и сложил их - всё работаёт