File Path VisualBasic Script

Sub csvSave()
    Workbooks("MyWorkbook.xls").SaveAs Filename:=ActiveWorkbook.Path & _
              "\test.csv", FileFormat:=xlCSV
End Sub