Dim rawfile As XrawFile Set rawfile = New XrawFile filename = "C:\Program Files\ProMassXcali\TestData\oligos\oligo01.raw" rawfile.Open (filename) Dim return_filename As String Call rawfile.GetFileName(return_filename) MsgBox return_filename