Algo asi?
Dim
valores() AsString
valores =
NewString() {"1","2","3","4","5","6","7","8","9","0"}
if valores.contains(text1.text) then
'lo que sea.
end if
Iván Noya Cendal
http://www.seuvella.com
Si la respuesta te ha ayudado, marcala.
Algo asi?
Dim
valores() AsString
valores =
NewString() {"1","2","3","4","5","6","7","8","9","0"}
if valores.contains(text1.text) then
'lo que sea.
end if