RE: Scancriteria fence and selection set

thank you
one more thing
tag_definitionname
  case "6_prof"  is defined as a String

this morning I slam my head against the wall
where am I wrong

 Case "6_prof"
                  
                       Dim text As String
                            text = tg(i)     ' errorrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
                         If vbNullString = Trim(text) Then
                             ' text is empty
                          Else
                            tg(i).Value = tg(i).Value + corprof ' do something with text
                          End If
                        
                       tg(i).Rewrite