If VarType(i) = vbEmpty Then
        Debug.Print "vbEmpty"
    ElseIf VarType(i) = vbNull Then
        Debug.Print "vbNull"

    ElseIf CInt(i) Then
        Debug.Print "vbInteger"

    ElseIf CLng(i) Then
        Debug.Print "vbLong"

    ElseIf CSng(i) Then
        Debug.Print "vbSingle"

    ElseIf CDbl(i) Then
        Debug.Print "vbDouble"

    ElseIf CCur(i) Then
        Debug.Print "vbCurrency"

    ElseIf CDate(i) Then
        Debug.Print "vbDate"

    ElseIf CStr(i) Then
        Debug.Print "vbString"

    ElseIf VarData(i) = vbObject Then
        Debug.Print "vbObject"

    ElseIf VarType(i) = vbError Then
        Debug.Print "vbError"

    ElseIf CBool(i) Then
        Debug.Print "vbBoolean"

    ElseIf CVar(i) Then
        Debug.Print "vbVariant"

    ElseIf VarType(i) = vbDataObject Then
        Debug.Print "vbDataobject"

    ElseIf CDec(i) Then
        Debug.Print "vbDecimal"

    ElseIf CByte(i) Then
        Debug.Print "vbByte"

    ElseIf CLngLng(i) Then
        Debug.Print "vbLongLong"

    ElseIf VarType(i) = vbUserDefinedType Then
        Debug.Print "vbUserDefinedType"