Workbooks.OpenText Filename:="c:\FO.TXT", Origin:= 866 , _
        StartRow:= 3 , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array( 1 ,  1  _
        ), Array( 2 ,  2 ), Array( 3 ,  2 ), Array( 4 ,  4 ), Array( 5 ,  4 ), Array( 6 ,  4 ), Array( 7 ,  4 ), Array( 8 ,  2 ), _
        Array( 9 ,  2 ), Array( 10 ,  2 ), Array( 11 ,  2 ), Array( 12 ,  2 ), Array( 13 ,  2 ), Array( 14 ,  4 ), Array( 15  _
        ,  2 ), Array( 16 ,  2 ), Array( 17 ,  2 ), Array( 18 ,  2 ), Array( 19 ,  2 )), TrailingMinusNumbers:=True
    Cells.Select
    Cells.EntireColumn.AutoFit
    fileSaveName = "h" + Trim(Str(Minute(Time)))
    ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False