Private Sub Timer1_Timer()
   
    Static ElapsedTime As Single
    ElapsedTime = ElapsedTime + 0.1
    If LeftPictureBox_RUNNING = True Then
    Buffer = ElapsedTime & "," & CoordinatesX & "," & CoordinatesY   
    ElseIf RightPictureBox_RUNNING = True Then
    Buffer = ElapsedTime & "," & "," & "," & CoordinatesX & "," & CoordinatesY   
    End If
    TxtFile.WriteLine (Buffer)
End Sub

如图所示，在Timer中进行每次0.1的累加，结果竟然到了2.7的时候，2.7+0.1变成了2.799999
如何解决该问题，敬请各位大侠不吝赐教！！！

非常感谢您的回答。
可是
这个文件是我以
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set TxtFile = FSO.CreateTextFile(Year(Date) & "擭" & Month(Date) & "寧" & Day(Date) & "擔" & "(" & WeekdayName(Weekday(Date), True) & ") " & Hour(time) & "帪" & Minute(time) & "暘" & ".csv", True)
    TxtFile.WriteLine "Time(s),X(Left),Y(Left),X(Right),Y(Right)"
    Timer1.Enabled = True

这种形式定义生成的
如何在生成之初，就不产生这种99999999999的小数呢？？
还有，请问为何会产生这种99999999999的小数？？

恳请不吝赐教！！！

您真是高人啊！！！！
不胜感激 ~~~