Formatting text within Report in VB

I have the following code in a module that links 3 fields in an unbound control in a report. The code also eliminates white space between the fields. I want the output of A1$ to format as Yes/No. The current output is 0 or -1.
Is it also possible to format A3$ "Date" as bold and DateDet as normal text.

Function Resolv$(DelResol, Detls, DateDet)

Dim A1$, A2$, A3$, CR$

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


A1$ = IIf(ISB(DelResol), "", DelResol & CR$)
A2$ = IIf(ISB(Detls), "", Detls& CR$)
A3$ = IIf(ISB(DateDet), "", "Date :" & DateDet & CR$)

Resolv = A1$ & A2$ & A3$

End Function

A1$ = IIf(ISB(DelResol), "", iif(DelResol, "Yes", "No")) & CR$)

I don't think Access will support partial field bold - if you find out otherwise please let me know!

This worked. Thanks for your help.
A1$ = IIf(ISB(DelResol), "", IIf(DelResol, "Yes", "No") & CR$)

Thanks for your help today. I have another problem relating to the code I emailed this morning. I am using a form to filter data in a report. I am now having a runtime error 3021 - I am filtering data and there may or may not be records. I want to disable this error, can you let me know where I put the error code to trap the error so that it does not appear when I am looking at null data.

This is where the error occurs, and it repeats all the way through the code I sent this morning.

Function ISB(V) As Integer
If IsNull(V) Or V = "" Then ISB = True Else ISB = False
End Function