Dim i
Dim j
For i = 1 to Survey.Questions.Count
  If Survey.Questions[i].Tags.Count > 0 Then
    Debug.Trace("Q: " + Survey.Questions[i].Shortcut + " | " + "Q-TAG: " + Survey.Questions[i].Tags)
  Endif
  For j = 1 to Survey.Questions[i].Responses.Count
      If Survey.Questions[i].Responses[j].Tags.Count > 0 Then
        Debug.Trace("R: " + Survey.Questions[i].Responses[j].Caption + " | " + "R-TAG: " + Survey.Questions[i].Responses[j].Tags)
    Endif
  Next j
Next i