Code:
Option Compare Database
Option Explicit
Private Sub btnCalcTimes_Click()
Me.txt1 = Me.txt0
If fraPick.Value = 1 Then
Me.txt11.Visible = True
Me.txt12.Visible = True
Me.txt13.Visible = True
Me.txt14.Visible = True
Me.txt15.Visible = True
Me.txt16.Visible = True
Me.txt17.Visible = True
Me.txt18.Visible = True
Me.txt19.Visible = True
Me.txt2 = DateAdd("n", 16, Me.txt1)
Me.txt3 = DateAdd("n", 16, Me.txt2)
Me.txt4 = DateAdd("n", 16, Me.txt3)
Me.txt5 = DateAdd("n", 16, Me.txt4)
Me.txt6 = DateAdd("n", 16, Me.txt5)
Me.txt7 = DateAdd("n", 16, Me.txt6)
Me.txt8 = DateAdd("n", 16, Me.txt7)
Me.txt9 = DateAdd("n", 16, Me.txt8)
Me.txt10 = DateAdd("n", 16, Me.txt9)
Me.txt11 = DateAdd("n", 16, Me.txt10)
Me.txt12 = DateAdd("n", 16, Me.txt11)
Me.txt13 = DateAdd("n", 16, Me.txt12)
Me.txt14 = DateAdd("n", 16, Me.txt13)
Me.txt15 = DateAdd("n", 16, Me.txt14)
Me.txt16 = DateAdd("n", 16, Me.txt15)
Me.txt17 = DateAdd("n", 16, Me.txt16)
Me.txt18 = DateAdd("n", 16, Me.txt17)
Me.txt19 = DateAdd("n", 16, Me.txt18)
Else
Me.txt2 = DateAdd("n", 61, Me.txt1)
Me.txt3 = DateAdd("n", 6, Me.txt2)
Me.txt4 = DateAdd("n", 6, Me.txt3)
Me.txt5 = DateAdd("n", 6, Me.txt4)
Me.txt6 = DateAdd("n", 6, Me.txt5)
Me.txt7 = DateAdd("n", 6, Me.txt6)
Me.txt8 = DateAdd("n", 15, Me.txt7)
Me.txt9 = DateAdd("n", 130, Me.txt8)
Me.txt10 = DateAdd("n", 6, Me.txt9)
Me.txt11.Visible = False
Me.txt12.Visible = False
Me.txt13.Visible = False
Me.txt14.Visible = False
Me.txt15.Visible = False
Me.txt16.Visible = False
Me.txt17.Visible = False
Me.txt18.Visible = False
Me.txt19.Visible = False
End If
End Sub