Код

Dim k As Long
Dim SA As SECURITY_ATTRIBUTES
Dim lngHandle As Long
Dim TextLine As String

retVal = ""

lngHandle = CreateFile(ParamVal(0), &H80000000 Or &H40000000, &H1 Or &H2, SA, 3, 0, 0)

Open ParamVal(0) For Input As #1
k = -1
Do While Not EOF(1)
    Line Input #1, TextLine
    TextLine = Mid(TextLine, 1, 100)
    If Mid(TextLine, 1, 6) = "{" & """" & "Name" Then
    k = k + 1

	  If LockFile(lngHandle, 2000001 + k, 0, 1, 0) = False Then
    TextLine = Mid(TextLine, 7)
    TextLine = Replace(TextLine, """", "")
    TextLine = Replace(TextLine, "}", "")
    TextLine = Replace(TextLine, ",", "")
    retVal = retVal & TextLine & ";"
	  Else
    UnlockFile lngHandle, 2000001 + k, 0, 1, 0
	  End If
    End If
Loop

Close #1
CloseHandle lngHandle