[VB6] Filtro dati in text

[GudFella]

Originariamente inviato da SuperMariano81
... cancellare tutto quello che c'è dopo il <

iPos = InStr(TXTdati(i).Text, "<")
If iPos <> 0 Then
    stringa = Left(TXTdati(i).Text, iPos - 1)
End If