[3booody]

كود :

Dim n As Object = 3.5
       If TypeOf n Is Integer Then
           MsgBox("رقم صحيح")
       End If
       If TypeOf n Is Double Then
           MsgBox("رقم كسري")
       End If