How to check if a variable is an integer on excel

Question

Sub odev4()

Dim x As Variant


x = InputBox("Bitte geben Sie eine Ganzzahl ein")

If x= int(x)
MsgBox "Diese Zahl ist Ganzzahl"

Else
MsgBox &qu