Have you try FormatCurrency sample like this:
lstOutput.Items.Add("Net pay: " & FormatCurrency(txtNetPay, 2, True))