vb6でCultureInfoオブジェクトをSet

vb6でCultureInfoオブジェクトをSetしたいのですが、うまくできません。 Visual Basic 6.0 SP6 WindouwsXP　Professional Microsoft .NET Framework 2.0 参照設定でmscorlibを追加し、下記コード作成。 Dim calendar as Calendar Dim culture as CultureInfo Dim format_info as DateTimeFormatInfo Set calendar = New JapaneseCalendar Set culture = New CultureInfo("ja-JP") ←ここでエラー（Newキーワードの使用法が不正です。） Set format_info = New DateTimeFormatInfo format_info = culture.Datetimeformat format_info.Calendar = New JapaneseCalendar() … 最終的には元号コード1～4の元号名を自動で取得したいと思っています。 （新元号対策として） そもそも、vb6ではCultureInfoクラスは使えないのでしょうか？ それとも、違う方法で元号自動Getできるんでしょうか？ どなたか教えて頂けたら幸いです。。。