ضريبة القيمة المضافة NSB

Function TextBox1_onkeyup()
If TextBox1.value <> "" Then
 Dim drbah  = TextBox1.value * 0.05
Label1.textContent = "القيمة مع الضريبة هي: " & CSng(drbah + CSng(TextBox1.value)) & " ريالًا"
Else If TextBox1.value = "" Then
  Label1.textContent = "القيمة مع الضريبة هي: "
End If
End Function