Private Sub TextBox2_Change()
Dim fillamt As Date
fillamt = Cdate(UserForm1.TextBox2) - cdate(UserForm1.TextBox1)
TextBox3 = format(fillamt, "mm/dd/yyyy")
End Sub


ll wrote:

Hi,
I have calendar objects populating two text boxes in my Excel vba
form, with a third box to show the difference of the first two (I
subtract box 1 from box 2).
I am getting a mismatch error, however, and I was wondering if a
change in formatting would correct this? Thanks for any help you can
provide.
Kind Regards,
Louis
===
Here is my code for the form:

Private Sub TextBox1_Change()
End Sub

Private Sub TextBox2_Change()
Dim fillamt As Date
fillamt = UserForm1.TextBox2 - UserForm1.TextBox1
TextBox3 = fillamt
End Sub

Private Sub TextBox3_Change()
End Sub

Private Sub UserForm_Click()
End Sub

--

Dave Peterson