[Iska]

До кучи :

Код:

Option Explicit

Dim strLine
Dim elem

strLine = "11111111,2222222,,,444444,777,,555555,,-1,-1,-1"

For Each elem In Split(strLine, ",")
	If elem <> "" Then
		WScript.Echo Abs(elem)
	End If
Next

WScript.Quit 0