Visual Basic - numeros enteros y decimales,URGENTE!!!

como hago para saber si un numero introducido en una caja de texto es entero o decimal, sin recorrerlo caracter a caracter, solo matematicamente

Hola
espero q esto te sirva.

If (InStr(1, CDbl(Text1.Text), ".") >= 1) Or (InStr(1, CDbl(Text1.Text), ",") >= 1) Then
MsgBox "el numero es decimal"
Else
MsgBox "el numero es entero"
End If

saludos

Ariel...

buenisimo hermano me sacastes de apuros

Podés utilizar Hex$ para probocar un error
On error resume next
dim h as string
h=Hex$(txtHexa.text)
if err.number<>0 then
msgbox "No es hehadecimal" & vbcrlf & "El número introducido es: " & val(txtHexa.text)

Else
msgbox "Es hehadecimal" & vbcrlf & "El número introducido es: " & txtHexa.text
End if

Saludos Ruri

Podés utilizar la cadena para ubicar el punto o la coma
if (txtNumero.Text like "*.*") then
MsgBox "Es decimal"
Elseif (txtNumero.Text like "*,*") then
MsgBox "Es decimal"
Else
MsgBox "Es entero"
End if

Otra forma es comparar el número con su parte entera:
dim n as single
n=VAl(txtNumero.text)
if n=int(n) then
MsgBox "Es decimal"
else
MsgBox "Es entero"
end if

Saludos Ruri