Font Size and Removing Extra Lines in Created Email

Greetings,
I am using the following code to create an email. All works good, except I want the font size to be 12-points (not the current 13.5). Also, I need to remove the extra line below "P.O. Amount", my signature block is defaulted to have 2 lines between the end of the email body and the block.

Sub Email_AA()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = "<font face=""Calibri"" size= ""4"" > " & Sheet3.Range("A433") & "<br>" & "<br>" & "Please issue a PO for the attached/following:" & _
    "<br>" & "<br>" & _
    "<b> Project Name: </b>" & Sheet3.Range("A434") & "<br>" & _
    "<b> Project #: </b>" & Sheet3.Range("A435") & "<br>" & _
    "<b> PID: </b>" & Sheet3.Range("A436") & "<br>" & _
    "<b> Vendor Name: </b>" & Sheet3.Range("A402") & "<br>" & _
    "<b> Vendor Contact: </b>" & Sheet3.Range("C402") & "<br>" & _
    "<b> Email: </b>" & Sheet3.Range("M402") & "<br>" & _
    "<b> Work Phone: </b>" & Sheet3.Range("I402") & "<br>" & _
    "<b> Cell: </b>" & Sheet3.Range("J402") & "<br>" & _
    "<b> P.O. Amount: " & Format(Sheet3.Range("Q402").Value2, "$0.00")

    On Error Resume Next

    With OutMail
        .Display
        .To = "xxx.com"
        .cc = ""
        .BCC = ""
        .Subject = Sheet3.Range("A3")
        .HTMLBody = strbody & .HTMLBody
        .Display
    End With

    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

ORoos,
Thank you for your help. For some reason it is still creating with 11pt font. I've change the size and it is either 11pt or 12.5pt.
Again, thank you much!