Public Sub Main()Dim FileName As StringFileName = Dts.Variables("User::FileName").Value.ToString()Msgbox(Filename) 'To test itDts.TaskResult = Dts.Results.SuccessEnd Sub