' put this part around line 38 where bRefund is set so it's all together
Dim bBouncedCheque : bBouncedCheque = False
If StrComp(category, "bouncedCheque", 1)=0 Then
    bRefund = true  ' bounced cheques are refunds too
    bBouncedCheque = true
End If

' this makes the if statement around line 214 a bit easier to read i think?
If bRefund Then
    receiptType = "Refund"
    If bBouncedCheque Then
        heading = "<h1>Bounced " & chequeName & "</h1>"
    Else
        heading = "<h1>Add Refund</h1>"
    End If
Else
    heading = "<h1>Add Receipt</h1>"
    receiptType = "Payment"
End If