'Object {Integer}型の変数を用意 Dim o As Object = CObj(1I) 'Integerにキャスト Dim v1 = CType(o, Integer) '(1)△ あらかじめ型が解っている場合はこれでOK Dim v2 = Convert.ChangeType(o, o.GetType) '(2)× Object {Integer}のまま