calcolo giorni tra due date da indicare, con visual basic

scrivere le due date e poi cliccare per risposta

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 
   Caption         =   "UserForm1"
   ClientHeight    =   3225
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7755
   OleObjectBlob   =   "giorni.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub CommandButton1_Click()
Dim inizioanno, iniziox As Date
Dim oggi, oggix As Date
Dim giornitrascorsi, trascorsix As Integer
oggi = Date
oggix = TextBox1.Text
iniziox = TextBox2.Text
inizioanno = #1/1/1998#
giornitrascorsi = oggi - inizioanno
TextBox1.SetFocus
Label1.Caption = giornitrascorsi
trascorsix = oggix - iniziox
Label3.Caption = trascorsix
End Sub

Private Sub UserForm_Click()
TextBox1.SetFocus
End Sub