VB 6中缺少点（。）

Question

代码正在从.txt文件中读取一些值，它使一切正常。但是当我将一些我需要的值传递给一个集合时，它会错过一个数字中的（。），然后会出现一些错误。

Sub readte(cFile As String)
    Dim nFile As Integer
    Dim cLinea As String
    Dim cdatos() As String
    Dim objOrd As Te

    Set coltes = New Collection

    On Error Resume Next

    nFile = FreeFile
    Open cFile For Input As #nFile

    Do While Not EOF(nFile)
        Line Input #nFile, cLinea
        ParseToArray cLinea, cdatos(), ";", True

        Set objOrd = New Te

        objOrd.cIDte = cdatos(0)
        objOrd.nProdAM2 = cdatos(8)
        objOrd.cLinete = cdatos(10)

        coltes.Add objOrd, objOrd.cIDte

    Loop

    Close #nFile

End Sub

它应该获得的数据是： cdatos（8）= 278.404

它给了我： objOrd.nProdAM2 = 278404

我不知道错误是什么，它只是一个有这个错误的数据。

我尝试过使用Double.ParseDouble（objOrd.nProdAM2为Double），但它说Expected: Expression