Text File - VBA Error

Private Sub Commandbutton1_Click()
On Error GoTo Problem
Dim ForDisk, returnvalue
ForDisk = Shell("format.com a:/q/y", 1)

Set fs = CreateObject("Scripting.FileSystemObject")
Set A = fs.CreateTextFile("a:\EMPL2000.txt", True)
A.writeline (empl)
brz = brz + 1
nex:
Next
A.Close
goto end1
Problem:
MsgBox err.Number
end1:
Еnd Sub

При първо кликване на бутона ми дава грешка -2147024862.
При повторно кликване всичко минава нормално.Къде греша.
Благодаря ВИ.

При мен си работи, въпреки че format.com връща "Parse error 3" Мисля, че грешката ти не може да се види от кода, който си пейстнал. Какво са brz и empl? Може би трябва да е empl(brz) ?!?

По-добре ползвай Open ... for output вместо filesystem - стар и изпитан метод.

Private Sub Commandbutton1_Click()

Dim ForDisk, returnvalue

On Error GoTo problem
ForDisk = Shell("format.com a:/q/y", 1)
DoEvents

Open "a:\EMPL2000.txt" For Output As #1
For i = 1 to ..............
Write #1, empl(brz)
Next i
Close #1
Exit Sub
problem:
MsgBox Err.Number & " " & Err.Description
End Sub