I'm having an issue getting the variable "ReviewType" from CPIReviewBtn across to CodeSubstitutions.  The CodeSubstitutions sub isn't recognising that ReviewType = "CPI", and hence isn't running the rest of the code.  

Private Sub CPIReviewBtn_Click()
    
    Dim db As Database
    Dim rs As Recordset
    Dim ReviewType As String, CPIDatePriorPrevious As String, CPIDatePriorCurrent As String, CPIRateApplicable As String
    ReviewType = "CPI"
    CodeSubstitutions (ReviewType)
.........

Private Sub CodeSubstitutions(ReviewType As String)

    Dim Description As String, Body As String, Cover As String, S As String, C As Currency

'Create Deed Document
    Select Case ReviewType
    Case "CPI"
        Description = DLookup("Subject", "DocumentTemplateT", "DocumentTemplateID=" & 6)
        Body = DLookup("Body", "DocumentTemplateT", "DocumentTemplateID=" & 6)
    Case "Market"
        Description = DLookup("Subject", "DocumentTemplateT", "DocumentTemplateID=" & 5)
        Body = DLookup("Body", "DocumentTemplateT", "DocumentTemplateID=" & 5)
    End Select
...........