Исключить из каждой строки текста группы символов, расположенные между скобками {,} - VB

Dim sOld As String
 
Private Sub Command1_Click()
Open "c:\111.txt" For Input As #1
Open "c:\222.txt" For Output As #2
     While Not EOF(1)
        Line Input #1, sOld
        While Not InStr(1, sOld, "{") = 0
           s1 = InStr(1, sOld, "{")
           s2 = InStr(s1, sOld, "}")
           sOld = Trim(Mid$(sOld, 1, s1 - 1)) & " " & Trim(Mid$(sOld, s2 + 1, Len(sOld)))
        Wend
        Print #2, sOld
       sOld = ""
      Wend
Close #1
Close #2
End Sub