Hi Phillip,
In that case, you can change the BeforePrint script on the CheckCents object to:
Private Sub OnBeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs)
dim intCents as Decimal
'Get the value after the decimal
intCents = fldAmount.text - Microsoft.VisualBasic.Fix(fldAmount.Text)
'multiply by 100 to bring two decimal places in front of decimal
intCents = intCents * 100
intCents = Microsoft.VisualBasic.Format(Microsoft.VisualBasic.Val(intCents), "#0")
'remove value after decimal, add leading 0 if less than 10
If Microsoft.VisualBasic.Int(intCents) < 10 Then
CheckCents.Text = "0" & Microsoft.VisualBasic.Int(intCents) & " / 100"
Else
CheckCents.Text = Microsoft.VisualBasic.Int(intCents) & " / 100"
End If
End Sub