Here is my code so far:
Sub CalcPV()
Dim cn, rs As Object
Dim strcon As String
Dim strsql As String
Dim inputPath, inputCF, inputRate, outputPath, outputFile As String
inputPath = Sheets("Sheet1").Cells(3, 4)
inputCF = Sheets("Sheet1").Cells(4, 4)
inputRate = Sheets("Sheet1").Cells(5, 4)...