"I have a text box on my form where I enter a date. After I enter a date in text box #1 I need to set the value of text box #2 to be the date of the first Sunday following text box #1.

The exception would be if the date they entered in text box #1 was a Sunday, in which case text box #2 needs to equal text box #1."

Use this in the update event for the 1st box:

Private Sub Text1_BeforeUpdate(Cancel As Integer)
    Dim tmp
    With Me
        tmp = .Text1
        If IsDate(tmp) Then
            Do While DatePart("w", tmp) <> vbSunday
                tmp = DateAdd("d", 1, tmp)
            Loop
            .Text2 = tmp
        End If
    End With
End Sub