Change the code like:
sDirFiles = "C:\Program Files\Microsoft Office\Office\EXCEL.EXE"
sDirFiles= sDirFiles & " C:\vibha.tsv"
RetVal = Shell(sDirFiles, 1)  ' Run Microsoft Excel.