สอบถามเรื่องยอดขายไม่โชว์ ภาษา VB6 ค่ะ และไม่รู้จะแทรกตรงไหนค่ะ

Private Sub btnCalculate_Click()
  lblTotat = (txtPrice * txtAmount)
    If OptCredit.Value = True Then
    lblNet = ((lblTotat * 10) / 100) - lblTotat
    ElseIf OptCash.Value = True Then
     lblNet = ((lblTotat * 15) / 100) - lblTotat
    End If
End Sub