Dynamisk Array med 1 statisk input.

Hej,

Jeg har nedenstående kode som jeg ikke helt kan få til at virke,
Scriptet leder efter en streng i en text fil (totalPercentageCompleted) også et tal udfra det. Det virker fint nok så længe der er en totalPercentageCompleted i text filen men hvis dette ikke er tilfældet giver den mig en ubound fejl. Hvilket er klart nok. Men hvrodan kan jeg lave en Array(0) f.eks. som er statisk sat til 0 så jeg har et "0" at arbejde med så længe der ikke er andre værdier.

Med Venlig Hilsen
Thomas Nissen

Dim ProgressArray()
Function ProgressCount()

i = 0

Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Pattern = "totalPercentageCompleted"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strProcess,1)

Do Until objFile.AtEndOfStream
  strSearchString = objFile.ReadLine
  Set colMatches = objRegEx.Execute(strSearchString) 

  If colMatches.Count > 0 Then

  strRight = Right(strSearchString,3)
  strReplace = Replace(strRight,",","")
  strTrim = Trim(strReplace)

  ReDim Preserve ProgressArray(i)
  ProgressArray(i) = strTrim
  i = i + 1

  End If
Loop

objFile.Close


strPercent = Ubound(ProgressArray)

Wscript.Echo ProgressArray(strPercent) & "%"
Wscript.Sleep 1000

If ProgressArray(strPercent) = "100" Then
  ProgressSuccess()
End If

End Function