读写文件的问题

我项目中需要读写数据，就写了一段读写随机文件的代码，如下：
FileName = App.Path & "\calibration.txt"
Open FileName For Random As #1

Put #1, 13, 24.1
Put #1, 14, 100.1

Get #1, 1, ShiftF
Get #1, 2, RatioF
Get #1, 3, Speed
Get #1, 4, ZeroDot
Get #1, 5, FirstDot
Get #1, 6, SecondDot
Get #1, 7, LittleCoefficient
Get #1, 8, LargeCoefficient
Get #1, 9, KNNKggkgf
Get #1, 10, PullPush
Get #1, 11, Sensor
Get #1, 12, StrengthData
Get #1, 13, intXMax
Get #1, 14, intYMax
Close #1
原来

Public intXMax As Long   'X轴显示坐标的最大值，由于时间可以突破65535秒，所以将变量设为长整型
Public intYMax As Long   'Y轴显示坐标的最大值
intXMin,intYMax是长整型数据，没问题。
后来把这两个变量改为单精度型数据，就出了问题。
我还在程序里强制性的把这两个数据写为
Put #1, 13, 24.1
Put #1, 14, 100.1
24.1和100.1.
结果读出来就变了


请高手看看，哪里有问题？谢谢！