pastebin

 Dim Katea$
        Dim HasieraData, Amaiera, AmaieraData As String

        HasieraData = InputBox("Sartu hasiera data (dd/mm/aaaa: ", _
                               "DateDiff Funtzioa")

        AmaieraData = InputBox("Sartu amaiera data (dd/mm/aaa): ", _
                               "DateDiff funtzioa")

        Katea = "Noiztik " & HasieraData & " Noiz arte: " & AmaieraData & " -- "
        Label6.Text = Katea & DateDiff(DateInterval.Day, CDate(HasieraData), CDate(AmaieraData)) & " egun daude"