Visual Basic Project

Question

I am currently making a valentine's day card for my programming class and I am suppose to create an algorithm to estimate the cost of the card. What I want the code to do is for every space the user enters in the richtextbox it adds one 5 cents to the total
price.
This is so far the code that I experimented with
the current code is in the richtextbox and I cant seem to figure out how to add 5 cents to each space bar the user inputs. Ignore the 1 its simply a place holder
If e.KeyCode = Keys.Space Then
lblPrice.Text = Val("1")
End If
Also when the user decides to erase words aka the space bar inputs the price goes down. I dont want it to stay the same. Help would be much appreciated!

Answer 1

I suggest handling a different event — TextChanged — in this manner:
Private
Sub RichTextBox1_TextChanged(sender
As
Object, e
As
EventArgs)
Handles RichTextBox1.TextChanged
Dim number_of_spaces = RichTextBox1.Text.Count(Function(c)
Char.IsWhiteSpace(c))
Dim price
As
Decimal = number_of_spaces *
0.05D
lblPrice.Text = price.ToString
End
Sub
However, maybe you should count the number of words or letters instead of spaces?