Compile error: Expected Function or variable

ola pessoal estou fazendo um codigo no vb para copiar pastas so que quando ele chega a te a linha do comando da esse erro:Compile error: Expected Function or variableo codigo segue abaixo:rivate Sub Form_Load()Dim fso As FileSystemObjectSet fso = New FileSystemObjectDim a As StringDim listaconfig(4) As String'Dim c As VariantSet b = fso.OpenTextFile("G:\backupteste\config.txt")For i = 0 To 1listaconfig(i) = b.ReadLineMsgBox listaconfig(i)Nextb.CloseFor i = 0 To 1Set c = fso.CopyFolder("g:\backupteste\*", "c:\", True)NextEnd Sub