COMO SABER SE O PRIMEIRO CARACTER E STRING OU NAO

USUARIO.EXCLUIDOS 03/05/2005 12:39:51
#81424

LCSD, se utilizar a tabela a função asc ajuda
if asc(sualetra) = 48, 49, 59, 60, then
msgbox é numero
end if
só não me lembro quais numeros na tabela ascii representa numeros

ALEXANDRE.SANTO 03/05/2005 12:41:58
#81426 Resposta escolhida

Coloca um botao e uma textbox e coloca esse codigo:

NomeString = Text1.Text
vCaracter = Left(NomeString, 1)

If IsNumeric(vCaracter) Then
MsgBox "é numerico"
Else
MsgBox "Nao e numerico"
End If

LCSD 03/05/2005 13:44:25
#81432

Obrigado, Alexandre.

Não tinha pensado nesta maneira.