Visual Basic - Reconocimiento de variables

Estoy trabajando en un proyecto sencillo de fraccionarios. Recibo un número en un texbox y lo asigno a una variable que es interger o entera. Si el usuario me ingresa un número decimal el programa debe rechazarlo pero si es entero debe admitirlo. ¿Me pueden decir si hay alguna sentencia que me permita diferenciar entre un número entero y un decimal o un metodo para hacerlo?

Esto te puede ayudar:

Private Sub Command1_Click()
If InStr(1, Me.Text1.Text, ".") Or InStr(1, Me.Text1.Text, ",") Then
MsgBox "decimal"
Else
MsgBox "entero"
End If
End Sub

Suerte!

ya.. y si en el Me.Text1.Text pongo

1256,00
ó
1.256 (mil doscientos cincuenta y seis en castellano)

me va a decir que es entero, o decimal??

como toda la ayuda que des sea como esa... vamos apañados!

" 1.256 (mil doscientos cincuenta y seis en castellano) "

¿?, de onde eres, que feo tu castellano. Al menos yo se desde HACE TIEMPOOOO que ya no se hace eso, sino separar con espacios, algunos usan ' en cifras grandes.

Pero bueno, si sabes bastante aporta no te cuesta nada, o eres uno de esos que se fijan como escribe uno y criticar, anda busca una vida mejor. :D

cuando no sé una respuesta, pues no contesto... así de sencillo.
no estoy en una maratón ni tengo que demostrar nada y si no entiendes lo que significa mil doscientos cincuenta y seis en castellano es que en tu vida has visto un diccionario (te recomiendo el de la RAE que es el oficial) o eres indio.

y al menos tu se desde HACE TIEMPOOOO ya no se hace eso, sino separar con espacios ????

algunos usan ' en cifras grandes????

no crees que lo estás complicando cada vez mas???

¿No contestar burradas?
Pues eso que escribiste ¿cómo lo catalogas, pajosín?
Por cierto ¿te agradeció Brenda tu "caballerosidad", o quisiste ligarla para dejar tu vicio?

Bueno yo haria lo siguiente para no tener error con los separadores de mil

Private Sub Command1_Click()
Dim resto as Double
resto=FormatNumber( Me.Text1.Text,2)-FormatNumber( Me.Text1.Text,0)
If resto <> 0 Then
MsgBox "decimal"
Else
MsgBox "entero"
End If
End Sub