I have a vba form I am using to have a user enter information into a
spreadsheet to do some calculations for me. One of the values is a length
value i.e. 164 and 3/8". What I am trying to accomplish is to have the user
not be able to enter a " mark in the textbox, because that value in my
spreadsheet breaks all of my formulas. My formulas just want a number, not
"text". The control I am using for them to enter into is a text box.
Someone said I should capture the kepress event and block it if it as a
quotation mark before writing the value to the field. So...I am struggling
with how to get this accomplished. Any help would be appreciated.

Roundy,

I think this would work. I added the message to to reduce user
confusion/frustration:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 34 Then
MsgBox "Sorry, no quotes (" & Chr(34) & ") allowed."
KeyAscii = 0
End If
End Sub

hth,

Doug


"Roundy" wrote in message
...
I have a vba form I am using to have a user enter information into a
spreadsheet to do some calculations for me. One of the values is a length
value i.e. 164 and 3/8". What I am trying to accomplish is to have the
user
not be able to enter a " mark in the textbox, because that value in my
spreadsheet breaks all of my formulas. My formulas just want a number,
not
"text". The control I am using for them to enter into is a text box.
Someone said I should capture the kepress event and block it if it as a
quotation mark before writing the value to the field. So...I am
struggling
with how to get this accomplished. Any help would be appreciated.

Thank you so much for your response, it works great.

"Doug Glancy" wrote:

Roundy,

I think this would work. I added the message to to reduce user
confusion/frustration:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 34 Then
MsgBox "Sorry, no quotes (" & Chr(34) & ") allowed."
KeyAscii = 0
End If
End Sub

hth,

Doug


"Roundy" wrote in message
...
I have a vba form I am using to have a user enter information into a
spreadsheet to do some calculations for me. One of the values is a length
value i.e. 164 and 3/8". What I am trying to accomplish is to have the
user
not be able to enter a " mark in the textbox, because that value in my
spreadsheet breaks all of my formulas. My formulas just want a number,
not
"text". The control I am using for them to enter into is a text box.
Someone said I should capture the kepress event and block it if it as a
quotation mark before writing the value to the field. So...I am
struggling
with how to get this accomplished. Any help would be appreciated.