L'errore è qui, credo:

[I]
Dim strListaCGrid As String

strListaCGrid = ""
strListaCGrid = strListaCGrid & Trim(NumPolizza)
strListaCGrid = strListaCGrid & Chr(9) & Trim(Lib9)
strListaCGrid = strListaCGrid & Chr(9) & Trim(Lib15)
strListaCGrid = strListaCGrid & Chr(9) & Trim(Lib10)
strListaCGrid = strListaCGrid & Chr(9) & Trim(Lib11)
strListaCGrid = strListaCGrid & Chr(9) & Trim(Lib12)
strListaCGrid = strListaCGrid & Chr(9) & Trim(Lib13)
'Modifica Elena - Aggiunta colonne - 20030622
strListaCGrid = strListaCGrid & Chr(9) & Trim(Col29)
strListaCGrid = strListaCGrid & Chr(9) & Trim(Lib37)
strListaCGrid = strListaCGrid & Chr(9) & Trim(Col30)
'Fine Modifica Elena - Aggiunta colonne - 20030622


MSFlexGridContratti.AddItem strListaCGrid

[I]

Le colonne da 9 sono passate a 10.. quindi chr(9)deve diventare chr(10)

Sono una ora testo