Verifica prima che la lunghezza sia > 6
Dim nome As String
nome = "stringa"
Dim Lunghezza, sinistra As Integer
Lunghezza = nome.Length
If Lunghezza >= 6 Then
sinistra = Lunghezza - 6
nome = nome.Substring(0, sinistra)
End If
e fai una prova. Ma il campo nome è fisso a "stringa" oppure è un dato di esempio che hai usato adesso?
-----------------------------------------
Rossi Marco
http://blogs.dotnethell.it/rossimarko