How it to write in procedure?

[miho1]

In procedure Private Sub Text1_Change () I want to specify:

If Text1. Text contains Numeric

And

If Text1. Text does not contain Numeric

How it to write?

Miho

 

[Golom]

Look up the "IsNumeric" function in VB HELP. Note however that "IsNumeric" returns TRUE only if the string contains only the digits 0-9. Things like "123.45", "123,456" or "-55" are not considered to be numeric.

 

[miho1]

Very much thank.
I shall try.

Miho

 

[JeffTullin]

Also consider

if Val(text1.text) <> 0 then
'a number exists

else
'either not a number, or user entered "0"
endif