新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command3_Click()
    obj = 123456789
    Debug.Print "The item is a " & TypeName(obj)
End Sub

运行结果：

The item is a Long