カンマ区切りの件、教えていただいたページで勉強しカンマを外すことができました。ありがとうございます。
↓こちらも大変勉強になりました。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_csv.html

また大変面倒で申し訳ないのですが
書出しの部分がうまくいかない上に、CSVが閉じませんが何が原因なのでしょうか？
エクセルの書出し部分を三行ずつセルを統合してしまったのですが、それが
原因でしょうか？
大変ご面倒で申し訳ないのですが、ご教授のほど、よろしくお願いいたします。


'--------書き出し
    With mySh1
Dim Fcn As Long
Dim i As Long
Dim buf As String
Dim tmp As Variant
    Open OpenFileName For Input As #1
        Fcn = 9
        Do Until EOF(1)
            Line Input #1, buf
            Fcn = Fcn + 1
            tmp = Split(buf, ",")
            If Fcn >= 11 Then
                For i = LBound(tmp) To UBound(tmp)
                    If i = 2 Then
                        .Cells(Fcn + 1, 13).Value = tmp(i)
                    ElseIf i = 3 Then
                        .Cells(Fcn + 1, 1).Value = tmp(i)
                    ElseIf i = 4 Then
                        .Cells(Fcn + 1, 4).Value = tmp(i)
                    ElseIf i = 5 Then
                        .Cells(Fcn + 1, 15).Value = tmp(i)
                    End If
                        
                
                Next i
            End If

        Loop
        Close #1

    End With
 '-------------