Ti ho detto di controllare la

lunghezza

della stringa rappresentata da Item(i)

La lunghezza deve essere >0 !

If .... >0 Then
TextBox25.Text &= (ItemList.Item(i) & vbCrLf)
End If