Help with Formatting a Report

[AverageBear]

I created a report using the standard design view. Within the report there are several different texts and text formatting. Because some of the data fields can be null, the report would have some white space. I decided to try using the example module ("using code to eliminate white space in a report&quot shown on the Microsoft support site. Here's an example of the report design:

SPECIFIC KNOWLEDGE AND EXPERTISE

.[knowledge1]
.
.
.
[knowledge9]

Consulting firms: [consulting]

Construction firms: [construction]

Other firms: [otherfirms]

Here's a representative sample of the module I created:

Function KnowBlock$(KnowledgeIntro, Knowledge1, Knowledge2, Knowledge3, Knowledge4, Knowledge5, Knowledge6, Knowledge7, Knowledge8, Knowledge9, ExperienceList, ConsultEngrFirms, ConstructFirms, OtherFirmsEtc)

Dim A1$, A2$,...A11$, A12$, A13$, CR$

CR$ = Chr(13) & Chr(10)

A1$ = IIf(ISB(KnowledgeIntro), "", (KnowledgeIntro) & CR$ & CR$ & CR$)
A2$ = IIf(ISB(Knowledge1), "", B1$ & (Knowledge1) & CR$)
.
.
.
A11$ = IIf(ISB(ConsultEngrFirms), "", "Consulting Engineering Firms: " & (ConsultEngrFirms) & CR$)
A12$ = IIf(ISB(ConstructFirms), "", "Construction Firms: " & (ConstructFirms) & CR$)
A13$ = IIf(ISB(OtherFirmsEtc), "", "Other Firms, Etc: " & (OtherFirmsEtc) & CR$)

KnowBlock$ = A1$ & A2$ & A3$ & A5$ & A6$ & A7$ & A8$ & A9$ & A10$ & A11$ & A12$ & A13$
End Function


The white spaces are eliminated, but now all the text is 10 point Times New Roman. I need to be able to format in different fonts, add bullets, etc.