Try
            For Each DataMatch As Match In Regex.Matches(objDoc.Content.Text, _
              "{(.+?)}")
                Dim g1 = DataMatch.Groups(1)
                Dim text = g1.Value
                Dim DataAddy = g1.Value
                MessageBox.Show("Zellenadresse: " & DataAddy)
            Next
        Catch
            MessageBox.Show("Satz mit x")
        End Try