Format Sub-Report Using "With Statements"

[AverageBear]

To eliminate white space in a sub-report I'm using a VBA module. Problem is, all my text is now the same style and size. I need to have different fonts in different sizes. Can I use "with" statements, and is so, how? Here's approximately how the sub-report should look:

SPECIFIC KNOWLEDGE AND EXPERTISE

.[knowledge1]
.
.
.
.[knowledge9]

Consulting firms: [consulting]

Here's a bit of the module I created:

Function KnowBlock$(KnowledgeIntro, Knowledge1,..., Knowledge9, ConsultFirms)

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$)

KnowBlock$ = A1$ & A2$

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 the report with different fonts, add bullets, etc.