Access VBA for defining a text box based on Tabs

[ARW17]

I want to create a text box whose value is equal to the caption on the tab that is currently active.

For example, my tabs are dates. The first tab is today's date and the next 4 are the next 4 work dates.

I want the text box to say Fri 1/20, when the Fri 1/20 tab is selected and the change to Tue 1/24 when the Tue 1/24 tab is selected.

I'm not sure how to write this in VBA, but I basically want something like:

If the tab named "Today" is selected then
txtTab = Today.caption
If the tab named "TodayPlus1" is selected then
txtTab = TodayPlus1.caption
End If

 

[ARW17]

This worked:

Private Sub DayTabs_Click()
If DayTabs.Pages(DayTabs.Value).Name = "Today" Then
txtTab = Today.Caption
End If
If DayTabs.Pages(DayTabs.Value).Name = "TodayPlus1" Then
txtTab = TodayPlus1.Caption
End If
If DayTabs.Pages(DayTabs.Value).Name = "TodayPlus2" Then
txtTab = TodayPlus2.Caption
End If
If DayTabs.Pages(DayTabs.Value).Name = "TodayPlus3" Then
txtTab = TodayPlus3.Caption
End If
If DayTabs.Pages(DayTabs.Value).Name = "TodayPlus4" Then
txtTab = TodayPlus4.Caption
End If
End Sub

I also set the default as [Today].[Caption]

 

[Micron]

or this?
Private Sub DayTabs_Change()
MsgBox Me.TabCtl28.Pages(Me.TabCtl28.Value).Caption
End Sub

or this?
Private Sub DayTabs_Click()
txtTab = Me.DayTabs.Pages(Me.DayTabs.Value).Caption
End Sub