Dim As Double myDbl
Dim As Integer myInt
myDbl = 5.56
myInt = myDbl
print "myInt = "; myInt
Sleep
End