新建From1(窗体),新建Command1(按钮CommandButton),代码:
Private Sub Command3_Click() obj = 123456789 Debug.Print "The item is a " & TypeName(obj) End Sub
运行结果:
The item is a Long