[OSのVer]：Windows　XP　　　　[VBのVer]：VB.NET
いつも、参考にさせて頂いております。
　以下のようにすると<>で囲んだ部分が、「Doubleへのキャストが有効ではありません」とい
う
エラーになります。
文字列として扱っているつもりなんですが、なんでDoubleで扱われてしまうんでしょうか？

      Dim pfl As String
　　     FileOpen(1, "c:\layF0001.txt", OpenMode.Input)
        FileOpen(2, "c:\sumF0001.txt", OpenMode.Output)
        Do Until EOF(1)
            pfl = LineInput(1)
            If sw = "on" Then
                calfl = Mid(pfl, 1, 33).PadRight(249, "0"c)
                d1 = CStr(CInt(Mid(calfl, 34, 6)) + CInt(Mid(pfl, 34, 6))).PadLeft(6, "
;0"c)
                d2 = CStr(CInt(Mid(calfl, 40, 6)) + CInt(Mid(pfl, 40, 6))).PadLeft(6, "
;0"c)
                d3 = CStr(CInt(Mid(calfl, 46, 6)) + CInt(Mid(pfl, 46, 6))).PadLeft(6, "
;0"c)
                <wfl = Mid(pfl, 1, 33)> + d1 + d2 + d3
            End If

>                 <wfl = Mid(pfl, 1, 33)> + d1 + d2 + d3

この wfl は、どこでどのような型で宣言していますか？

[OSのVer]：Windows　　　　[VBのVer]：VB.NET
　早速のご返信ありがとうございます。　　
>
> >                 <wfl = Mid(pfl, 1, 33)> + d1 + d2 + d3
>
> この wfl は、どこでどのような型で宣言していますか？

Dim pn, wfl As String

にて宣言しました。

> > この wfl は、どこでどのような型で宣言していますか？
>
>  Dim pn, wfl As String
>
> にて宣言しました。

どこで？

一度下記のように直前で宣言して試して見て下さい。
Dim wfl As String
Debug.WriteLine(TypeName(wfl))
Debug.WriteLine(TypeName(d1))
wfl = Mid(pfl, 1, 33) & d1 & d2 & d3

> 一度下記のように直前で宣言して試して見て下さい。
> Dim wfl As String
> wfl = Mid(pfl, 1, 33) & d1 & d2 & d3

名前からして、d1, d2, d3 は Double な気がします。
wfl は関係なくって、

　Mid(pfl, 1, 33) ・・・ String
　その後に続く d1 ・・・ Double

でキャストミスしてるような...

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　
ありがとう御座います。
出来ました、宣言の位置は、FileOpenの前でやっていました。
位置を直前にして、ご指摘のようにやったらエラーは出ませんでした。
　
> Dim wfl As String
> wfl = Mid(pfl, 1, 33) & d1 & d2 & d3

　ちなみに、
wfl=Mid(pfl,1,33) + d1 + d2 + d3
にするとエラーになりました。
”+”は使わない方が良さそうです。

　どうも、有難う御座いました。