Private Sub TextBox2_Change()
Dim dt1 As Date
Dim dt2 As Date
dt1 = TextBox1
dt2 = TextBox2
TextBox3 = dt2 - dt1
End Sub

Hth,
Merjet