Prova a modificare in questo modo la tua funzione
passando a questo punto attraverso l'oggetto Object


codice:
Function Scrividata(data as Object) 
  If not IsDBNull(obj) then
	If data.Length >10 then 
		return data.Substring(0, 9)
	else 
		data=""
		return data
	end if 
  Else
	data=""
	return data
  End If
End Function