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