Thanks for the help and the link (very useful). So I've changed the code to:
Private Sub txtStartDate_Change()
Dim USADate As String
USADate = Format(Me.txtStartDate, "mm/dd/yyyy")
Me.txtStartDay.Value = Format(USADate, "dddd")
End SubStill the txtStartDay results are inconsisent...