ถ้ากดใส่คูปองจะไม่เกิด error แต่ถ้ากดคิดเงินเลยจะขึ้น error ดังนี้ครับ Conversion from string "..." to type Double is not valid.

CDbl( '0' & .txt_discount.Text)

.txt_net.Text = CDbl('0' &  .txt_total.Text) - CDbl('0' &  .txt_discount.Text)

Private Sub btn_print_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_print.Click


With frm_total
'ถ้า txt_discount ว่าง ให้มันใส่ค่า 0 ลงไปโดยอันโนมัติ ก่อนคำนวน
if .txt_discount.Text = "" Then
.txt_discount.Text = "0"
end if

.txt_total.Text = CDbl(txt_total.Text)
.txt_discount.Text = lbl_discount.Text
'.txt_discount.Text = "0"
.txt_net.Text = CDbl(.txt_total.Text) - CDbl(.txt_discount.Text)
.txt_recive.Text = ""
.txt_recive.Select()
.Show()
.Activate()
End With

End Sub

'กำหนดใส่ได้เฉพาะตัวเลขเท่านั้น

 Private Sub txt_discount.Text_KeyDown(sender As Object, e As KeyEventArgs) Handles txt_discount.Text.KeyDown
          Select Case Asc(e.KeyChar)
            Case 48 To 57 ' key โค๊ด ของตัวเลขจะอยู่ระหว่าง48-57ครับ 48คือเลข0 57คือเลข9ตามลำดับ
                e.Handled = False
            Case 8, 13, 127 ' ปุ่ม Backspace = 8,ปุ่ม Enter = 13, ปุ่มDelete = 46
                e.Handled = False
            Case Else
                e.Handled = True
        End Select
    End Sub