writing textfile to excel

[Hjahren]

Hi

I have a problem with my macro, sometimes it splits a number which is delimited with "." into two cells. For instance, 0.6888, becomes 0 in column A and 6888 in column B. Anyone who knows how to avvoid this problem? My excel uses comma normally as delimiting into decimals.

    Set objData = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    Set tsr = CreateObject("Scripting.FileSystemObject").OpenTextFile(fPath & fNEW, 1)
    strText = tsr.ReadAll
    tsr.Close
    objData.SetText strText
    objData.PutInClipboard