ПОМОГИТЕ ПОЖАЛУЙСТА! задачка VBA. удалить все символы, стоящие между круглыми скобками.

Еще парочка бесплатных.
Первый дает - asdghjgfyur, а второй - asd()ghj()gfyur()
Sub Macros1()
Dim stroka As String
Dim perv_skobka As Integer
Dim vtor_skobka As Integer
stroka = "asd(er)ghj(nm)gfyur(rtd)" 'строка исходная
Do
perv_skobka = InStr(1, stroka, "(") 'позиция открывающей скобки
vtor_skobka = InStr(1, stroka, ")") 'позиция закрывающей скобки
If perv_skobka = 0 Or vtor_skobka = 0 Then Exit Do 'если нет скобок заканчиваем цикл
stroka = Mid(stroka, 1, perv_skobka - 1) & Mid(stroka, vtor_skobka + 1) 'создаем строку без скобок и их содержимого
Loop
MsgBox stroka ' вывод новой строки
End Sub

Sub Macros2()
Dim stroka As String
Dim perv_skobka As Integer
Dim vtor_skobka As Integer
stroka = "asd(er)ghj(nm)gfyur(rtd)" 'строка исходная
Do
perv_skobka = InStr(perv_skobka + 1, stroka, "(") 'позиция открывающей скобки
vtor_skobka = InStr(vtor_skobka + 1, stroka, ")") 'позиция закрывающей скобки
If perv_skobka = 0 Or vtor_skobka = 0 Then Exit Do
stroka = Mid(stroka, 1, perv_skobka) & Mid(stroka, vtor_skobka) 'создаем строку без содержимого в скобках
Loop
MsgBox stroka ' вывод новой строки
End Sub