This seems to be working although it is not pretty and I am sure there is an easier way. I just need to fine tune a few things. I think my inexperience with writing code will show.
Code:
Private Sub Trap_Exchange_Click()
Dim TrapDate, Message1, Title1, TrapSN, Message2, Title2, MOSMult
Message1 = "Please enter the date of the Trap Exchange.(MM/DD/YYYY)"
Title1 = "Work Completed Date"
TrapDate = InputBox(Message1, Title1)
Me.[Pump Exchange Date] = TrapDate
If Me.[Chosen Exchange] <= 12 And Me.[Chosen Exchange] > 6 Then MOSMult = 0.17
If Me.[Chosen Exchange] <= 6 And Me.[Chosen Exchange] > 3.1 Then MOSMult = 0.25
If Me.[Chosen Exchange] <= 3 Then MOSMult = 0.35
'
'
'
'
Me.[Installed] = [Pump Exchange Date]
'
'
'
Do While Me.[Exchange] < Me.[Installed]
Me.[Exchange] = DateAdd("m", Me.[Chosen Exchange], Me.[Exchange])
Loop
If Me.[Exchange_MOS] <= [Chosen Exchange] * MOSMult Then
Me.[Exchange] = DateAdd("m", Me.[Chosen Exchange], Me.[Exchange])
End If
If Me.[Chosen Exchange] <= 12 And Me.[Chosen Exchange] >= 6 Then
Do While Me.[Exchange_MOS] <= Me.[Chosen Exchange] * 0.74
Me.[Exchange] = DateAdd("m", 3, Me.[Exchange])
Loop
End If
'
'
'
End Sub