Задача на vba. Помогите решить!

Задана строка типа str = "fd(gfh)1111(1sds)222(sdsd)3333". Нужно в каждую отдельную ячейку листа excel через vba расположить символы от ")" до "(".

Dim s, str As String
Dim i, j As Integer
Dim b(50) As String
str = "fd(gfh)1111(1sds)222(sdsd)3333"
s = ""
For i = 1 To Len(str)
If Mid(str, i, 1) = ")" Then
s = Mid(str, i + 1)
End If
Next i
Cells(1, 1) = s

перезаписывает результат, не знаю как остановить цикл на "("