ช่วยแก้ Error ให้หน่อยค่ะ มันขึ้น Error ว่า Conversion from string "" to type 'Double' is not valid.

'สาเหตุ: เพราะค่าใน textbox = empty ทำให้ function convert ทำงานผิดพลาด
'วิธีแก้ไข 
'1.ตรวจสอบค่าใน textbox ถ้าเป็น empty ให้แทนด้วย 0
'จาก
Total = CDbl(lblPrice.Text) * CInt(txtAmount.Text)
'เป็น
Dim StrPrice As String = lblPrice.Text.Trim()
Dim StrAmount As String = txtAmount.Text.Trim()
Total = CDbl( (StrPrice.Length=0)?"0":StrPrice ) * CInt((StrAmount.Length=0)?"0":StrAmount )

'แต่อาจจะแก้ไขได้ไม่หมดในกรณีที่ค่าใน lblPrice มีอย่างอื่นที่ไม่ใช่ตัวเลขมาด้วยเช่น "23A3" ก็จะยัง Error
'แต่ถ้าใช้ RangeValidator หรือ RegEx มาช่วยจะแน่นอนกว่าแต่ code จะยาวเกินไปสำหรับการ convert data ค่ะ

'2. ใช้ method TryParse ค่ะ
'จาก
Total = CDbl(lblPrice.Text) * CInt(txtAmount.Text)
'เป็น
Dim tempPrice As Double = 0 'Set default value
Dim tempAmount As Double = 0 

Double.TryParse(lblPrice.Text.Trim() ,tempPrice )
Double.TryParse(txtAmount.Text.Trim() ,tempAmount )

Total = tempPrice  * tempAmount