Public Function FileNameNow(ByVal filename As String) As String
 
   Dim ext As String = IO.Path.GetExtension(filename)
   Dim fn As String = _
        filename.Substring(0, filename.Length - ext.Length)
 
   Return fn & Strings.Format(Now, "_yyyyMMdd_hhmm") & ext
 
End Function