Hi,

I have a simple question for the following code:

Private Sub OnlyNumbers(ctl As Object)
With ctl
If Not IsNumeric(.Value) And .Value < vbNullString Then
MsgBox "Sorry, alleen getallen toegestaan"
.Value = vbNullString
.SetFocus
MsgBox "numtest"
End If
End With
End Sub

This code checks if the input in a txt box is numeric. It works fine !
My problem: I only want to check if the left first character of the input is
numeric !
I thought it should be possible to change the line

If Not IsNumeric(.Value) And .Value < vbNullString Then

so it only looks at the first character that is input by the user.
Can anyone help me please?
Thanks,
Pierre


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200508/1

Hi Jean-Pierre,

If Not IsNumeric(Left(.Value, 1)) And .Value < vbNullString Then
---
HTH,
David McRitchie, Microsoft MVP - Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm


"Jean-Pierre D via OfficeKB.com" wrote in message ...
Hi,

I have a simple question for the following code:

Private Sub OnlyNumbers(ctl As Object)
With ctl
If Not IsNumeric(.Value) And .Value < vbNullString Then
MsgBox "Sorry, alleen getallen toegestaan"
.Value = vbNullString
.SetFocus
MsgBox "numtest"
End If
End With
End Sub

This code checks if the input in a txt box is numeric. It works fine !
My problem: I only want to check if the left first character of the input is
numeric !
I thought it should be possible to change the line

If Not IsNumeric(.Value) And .Value < vbNullString Then

so it only looks at the first character that is input by the user.
Can anyone help me please?
Thanks,
Pierre


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200508/1

use LEFT

IsNumeric(LEFT(.Value,1))


Mangesh




"Jean-Pierre D via OfficeKB.com" wrote in message
...
Hi,

I have a simple question for the following code:

Private Sub OnlyNumbers(ctl As Object)
With ctl
If Not IsNumeric(.Value) And .Value < vbNullString Then
MsgBox "Sorry, alleen getallen toegestaan"
.Value = vbNullString
.SetFocus
MsgBox "numtest"
End If
End With
End Sub

This code checks if the input in a txt box is numeric. It works fine !
My problem: I only want to check if the left first character of the input
is
numeric !
I thought it should be possible to change the line

If Not IsNumeric(.Value) And .Value < vbNullString Then

so it only looks at the first character that is input by the user.
Can anyone help me please?
Thanks,
Pierre


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200508/1