How to change font size in footer VBA Word 2016

Hi - I'm using some code (that helpfully was found in this community!!!!  Thanks Graham!) to insert a footer - I can't figure out how to make the font size change to 9 (just for the footer).

    Dim n As String

    Dim rG As Range

    Dim iRM As Long

    n = "File Number " & FNumberTextBox.Text

 With ActiveDocument.Sections(1)

     With .PageSetup

     iRM = .PageWidth - .RightMargin - .LeftMargin

     .DifferentFirstPageHeaderFooter = False

     End With

     Set rG = .Footers(wdHeaderFooterPrimary).Range

     rG.Text = "Page "

     rG.Collapse wdCollapseEnd

     ActiveDocument.Fields.Add rG, wdFieldPage, , False

     rG.Start = .Footers(wdHeaderFooterPrimary).Range.End

     rG.Text = " of "

     rG.Collapse wdCollapseEnd

     ActiveDocument.Fields.Add rG, wdFieldNumPages, , False

     rG.Start = .Footers(wdHeaderFooterPrimary).Range.End

     With rG.Paragraphs(1).TabStops

         .ClearAll

         .Add Position:=iRM, Alignment:=wdAlignTabRight

     End With

     rG.Text = vbTab & n

     .Footers(wdHeaderFooterPrimary).Range.Fields.Update

 End With