Sub Main()
Dim dxStack As New System.Collections.Stack
Dim i1 As Integer = 5
Dim b As Boolean = True
Dim s As String = "cat"
Dim l As Long = 87 ^ 5
Dim d As Double = 33.4567
Dim sng As Single = 1.25
Dim ar() As String = {5, 3, 7}
Dim o As Object
Try
dxStack.Push(b)
dxStack.Push(s)
dxStack.Push(l)
dxStack.Push(sng)
dxStack.Push(ar)
dxStack.Push(d)
dxStack.Push(i1)
Do While dxStack.Count <> 0
o = dxStack.Pop ' take each item off the stack
Dim t As System.Type
t = o.GetType
Stop ' take a look in locals for t.Fullname etc
Loop
Catch ef As FormatException
MsgBox(ef.Message)
Catch ee As Exception
MsgBox(ee.Message)
End Try
End Sub