Dani una cosa del genere andrebbe bene?

codice:
    Public Class alessio
        Public Function Maiuscolo(val)
        
               Dim testo as string
               Testo = val
               Maiuscolo = ucase(testo)

        End Function

    Public Function FanoDate(val)

             dim data as datetime
             data = System.Convert.ToDateTime(val)
             dim datastring as string
             datastring=data.tostring("dd/MM/yyyy")
             fanodate=datastring.Substring(0, 10)
    
    End Function
        
    
    End Class