Passing Dates In

Never transfer dates as strings between subroutines

Public Sub (dtDate1 As Date, _ 
            dtDate2 As Double, _ 
            dtDate3 As Decimal, _ 
            dtDate4 As Variant, _ 
            dtDate5 As Object) 

'add days to each and format the results ??


End Sub 

If a subroutine requires a Date data type, pass in a Long instead and it will be converted automatically.