ASCii code to allow a space

[lifeson]

How do I amend the following code to allow a space to be entered and not just numbers?
[vba]Private Sub txtMobile_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc("-")
If InStr(1, Me.txtMobile.Text, "-") > 0 Or Me.txtMobile.SelStart > 0 Then
KeyAscii = 0
End If
Case Asc(".")
If InStr(1, Me.txtMobile.Text, ".") > 0 Then
KeyAscii = 0
End If
Case Else
KeyAscii = 0
End Select
End Sub[/vba]

[unmarkedhelicopter]

Case Asc(" ")

[Bob Phillips]

Don't know how you want to handle a space

[vba]

Private Sub txtMobile_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(" ")
Case Asc("-")
If InStr(1, Me.txtMobile.Text, "-") > 0 Or Me.txtMobile.SelStart > 0 Then
KeyAscii = 0
End If
Case Asc(".")
If InStr(1, Me.txtMobile.Text, ".") > 0 Then
KeyAscii = 0
End If
Case Else
KeyAscii = 0
End Select
End Sub
[/vba]

[lifeson]

I want to allow the user to be able to input a number such as:

01234 567890

[unmarkedhelicopter]

A Brit on the east coast USA.
Your original code does not prevent you from doing that.
The handling routine around it may though.
You would need to post the handling routine as well so that we can see.
(Sorry but maybe my first reply was too acute.)

[lifeson]

Sorry, I dont know what you mean about the handling routine
I found that bit of code which sits on a user form and works when the text box is amended and is great at only allowing the user to input numbers 0-9
I just wanted a bit of code that allows the user to input 0-9 and a space (like a phone number)

[rory]

Did you try the code xld provided you?
Regards,
Rory

[lifeson]

No
I had totally missed that post ! - must be going screen blind - time to stop for today

That works fine

[unmarkedhelicopter]

Wow ! and it was SO different to mine !!!!

[lifeson]

Sorry
I did try something like that but must have done asc("")

[rory]

And I completely missed yours! (Does that make you an unremarkedhelicopter? )

[unmarkedhelicopter]

Story of my life ... don't ask me to make tea !!!!