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 Sub

Make sure you test for valid date values in the text boxes before moving focus.