Private Sub Text1_LostFocus()
If Format(CDate(Text1.Text), "dddd") = "Friday" Then
Text2.Text = CDate(Text1.Text) + 2
Else
Text2.Text = Text1.Text
End If
End SubMake sure you test for valid date values in the text boxes before moving focus.