Ciao ragazzi,
ho questa funzione per convertire una data, purtroppo mi restituisce l'errore che vi ho scritto inoggetto, anche se ho messo il controllo che vi evidenzio in neretto.
Sapete dirmi come posso risolvere?
grazie a tutti

Questa è la funzione:

codice:
Function Data(ByVal valore As String)
        If valore <> "0" And valore IsNot System.DBNull.Value   Then
            Dim DataCorta As String
            Dim giorno, mese, anno As String
            Dim DataLunga As String

            DataCorta = Left(valore, 10)
            anno = Left(DataCorta, 4)
            mese = Mid(DataCorta, 5, 2)
            giorno = Mid(DataCorta, 7, 2)

            DataLunga = giorno & "/" & mese & "/" & anno

            Return DataLunga
        Else
            Return ""
        End If
    End Function