Conversion of pipe delimitation text file into excel using vbscript

My requirement is to convert below text (sample.txt) file into an excel file (.XLSX) .All data should appear in different
column in excel.First two lines (in upper and lower case) need to be treadted as header in the excel file.

Would appreciate if some one could please help me in vbscript.

sample.txt
Name|Age|***|Department
name|age|***|department

Abc|23|Male|Computer
XYZ|24|Male|Arts

Thanks a lot for your response. I am quite new in vbscripting and still unable to write a complete code .

It would be great help if you could please provide me complete code. I need to just convert "pipe delimited" file into an excel .

Here is example of my text input file :-

Name|age|gender|department|year
praveen|23|male|computer|2010
ptalakes|23|female|arts |2018

Output should be in excel file as below in corresponding cell :-

Name age gender department year
praveen 23 male computer 2010
ptalakes 23 female arts 2018

Thanks in advance
Praveen

What i have done so far is :- first converted .txt file into csv ...and then attempting to convert csv into xls . Looks like my approach is not correct and seems quite lengthy . Need your help pleae with complete code....

Dim fso, ts1, ts2

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts1 = fso.OpenTextFile("C:\Users\user\Desktop\1910.txt")
Set ts2 = fso.CreateTextFile("C:\Users\user\Desktop\1910.csv")
Do Until ts1.AtEndOfStream
ts2.WriteLine Replace(ts1.ReadLine, "|", ",")
Loop

ts2.Close
ts1.Close

Dear Praveen, I suggest you record a macro with using relative references.
Steps are as follows( key Steps)
1. Open a macroenabled workbook.
2. Start recording
3. goto data tab and import the txt file you want to import.
4. Use Text to col. whizard to convert
5. SAve and exit macro.

Try this and you will have your working code ready. We can review the code to eliminate those extra steps which excel normally records.