Попробуйте изменить строку With Regex
на
With theRegex
.MultiLine = False
.Global = True
.IgnoreCase = False
End With
Ваш оператор On Error resume next
скрывает ошибку.
Вам нужен интерфейс в secondActivity и реализуйте его в firstActivity. Потому что ваша логика со второго на первое неверна.