VB6で変数に値を代入すると、エラーが発生します。
データの型、範囲は間違っていません。
回避方法はないでしょうか？

ソースは、以下の通りです。

ReDim Mφin(0 To 1, 0 To 1, 1 To 断面数)
'↑断面数は最大10です。

For Hoko% = 0 To 1
        For ifr% = 0 To 1
            For I% = 1 To 断面数
                Mφin(Hoko%, ifr%, I%).Upos = 0
                Mφin(Hoko%, ifr%, I%).nbun = 計算分割数
                '↓このステートメントでオーバーフローします。　　　    　　　　
　　　　　　　　　Mφin(Hoko%, ifr%, I%).sgmsy = wsgmsy
    　　Next
        Next
Next

＊Mφin(Hoko%, ifr%, I%).sgmsyはDouble型、wsgmsyはSingle型で、
　値は 23000 です。

以上、宜しくお願いします。

> VB6で変数に値を代入すると、エラーが発生します。
> データの型、範囲は間違っていません。
> 回避方法はないでしょうか？
>
> ソースは、以下の通りです。
>
> ReDim Mφin(0 To 1, 0 To 1, 1 To 断面数)
> '↑断面数は最大10です。
>
> For Hoko% = 0 To 1
>         For ifr% = 0 To 1
>             For I% = 1 To 断面数
>                 Mφin(Hoko%, ifr%, I%).Upos = 0
>                 Mφin(Hoko%, ifr%, I%).nbun = 計算分割数
>                 '↓このステートメントでオーバーフローします。　　　    　　　　
> 　　　　　　　　　Mφin(Hoko%, ifr%, I%).sgmsy = wsgmsy
>     　　Next
>         Next
> Next
>
> ＊Mφin(Hoko%, ifr%, I%).sgmsyはDouble型、wsgmsyはSingle型で、
> 　値は 23000 です。
>
> 以上、宜しくお願いします。

CsngでSingle型に変換してみてもだめなのですか？