se ti serve solo il primo carattere:
stringa = Left(TXTdati(i).Text, 1)

se devi escludere certi dati tipo "<TD>":
stringa = Replace(TXTdati(i).Text, "<TD>", "")