EXCEL VBAコミュのcsvファイルを開いてさらに違うcsvファイルに保存

こんにちは。

VBA初心者、プログラミングはある程度のものです。

このたび、仕事の効率化のためマクロを組んでツールかすることです。

やりたい事：
ボタンを押すとファイルを開く(操作者にファイルを選ばせる)画面が出て、
選んだcsvをInputで開き、そのファイル名を少し変更したファイル名のcsvファイルで保存したいと思っています。

最終的にやりたい事：
?元のcsvのデータにある任意の数値を掛けて(もしくは割って)、
　その結果を
?その際に掛けるある数値を操作者に入力させたり、
　データを使用する開始行を操作者に入力させたりとイロイロかんがえています。

[元ファイル]
ファイル名
保存日時　20011/10/29
データ数　3
データ長　9
Time　　　位置A　　　位置B　　　位置C
0 3 3 3
2 3 3 4
3 3 3 5
4 3 2 10
5 3 2 3
6 3 1 3
7 3 0 3

[現在の方法(上手く動作しません)]
Sub make_file1()

Dim Original As String　　　　　　　　’元のファイル名を格納
Dim newFile As String　　　　　　　　’新しいファイル名を格納
Dim ch1 As Integer　　　　　　　　　　’元のファイルを開くための番号
Dim ch2 As Integer　　　　　　　　　　’新しいファイルを開くための番号
Dim i As Long　　　　　　　　　　　　’行番号を制御する添え字
Dim x As Long　　　　　　　　　　　　’各行の要素を制御する添え字
Dim DL As Long　　　　　　　　　　　　’データ数
Dim SL As Long　　　　　　　　　　　　’データ開始行
Dim EL As Long　　　　　　　　　　　　’データ終了行(基本未使用)

Dim data As String　　　　　　　　　’開いたデータを格納
Dim dataIn() As String　　　　　　　’開いたデータをSPLITした後格納する配列
Dim dataOut() As String　　　　　　　’処理後のデータを格納する配列

　　’ファイル名を取得
Original = Application.GetOpenFilename("csv ファイル,*.csv,asc ファイル,*.asc")
If (Orignal = "" Or IsNull(Original) = True Or Original = "False") Then
'Exit Sub　　　’なぜかExitしてしまうのでコメントアウト
End If

　　’新しいファイル名を決める
newFile = Left(Original, InStr(Original, ".csv") - 1) & "_PHS.csv"

　　’元のファイルをInputとして開く
ch1 = FreeFile
Open Original For Input As #ch1

　　’新しいファイルをOutputとして開く(存在しない場合自動で新しくファイルが出来る)
ch2 = FreeFile
Open newFile For Output As #ch2

i = 0

　　’使いたいファイルまでデータを読み捨てる
SL = 5
For i = 1 To SL
Line Input #ch1, data
Next

’データを読んでは書き込む
Do Until EOF(1)

x = 0
Line Input #ch1, data

dataIn = Split(data, " ")
DL = UBound(dataIn)
ReDim dataOut(DL)
'For x = 0 To (DL - 2)
For x = 0 To (DL - 1)
dataOut(x) = dataIn(x)
Write #ch2, dataOut(x);
Next
'dataOut(DL - 1) = dataIn(DL - 1)
dataOut(DL) = dataIn(DL)
Write #ch2, dataOut(DL - 1)
i = i + 1
Loop

Close #ch1
Close #ch2
End Sub