VB kode hjælp Igen

Denne het kode virker men på nogle compurer gør den ikke..
problemet er at den henter tekst og tid
men kan ikke finde ud at at hente tid uden det bliver 0,1111225
eller noget af den still
Sub Tekstfil()
 
  Dim fso As FileSystemObject
  Dim fsoFld As folder
  Dim fsoFil As File
 
  Dim filnavn As String
  Dim rngCopyRange As Range
  Dim n As Variant
  Dim s As String
  s = ""
  Set rngCopyRange = ThisWorkbook.Sheets(1).Range("a1:a264")
  filnavn = "Lager " & ThisWorkbook.Sheets(2).Cells(2, 14).Value & ".txt"
 
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set fsoFld = fso.GetFolder("C:\D\")
 
  If fso.FileExists(fsoFld & "\" & filnavn) Then
    n = 1
    Do While fso.FileExists(fsoFld & "\" & Left( _
      filnavn, Len(filnavn) - 4) & "" & n & ".txt")
      n = n + 1
    Loop
    s = ""
  End If
  filnavn = Left(filnavn, Len(filnavn) - 4) & s & n & ".txt"
 
  With Workbooks.Add
    With Sheets(1)
      .Range("a1:a263").Value = rngCopyRange.Value
      ActiveWorkbook.SaveAs Filename:=fsoFld & "\" & filnavn, FileFormat:=xlText
    End With
    Application.DisplayAlerts = False
    .Close
    Application.DisplayAlerts = True
  End With
 
  Set fso = Nothing
  Set fsoFld = Nothing
End Sub