Çözüldü csv ";" excele aktarma

Merhabalar,
bir sorum daha olacakti.
csv dosyasinin verileri arasinda ";" isareti oldugunda excele örnegin veriler ""2.14"" seklinde aktariliyor.Bunu nasil engelleyebilirim?

Tesekkürler

Sub Schaltfläche1_Klicken()
Const PATH = "C:\vba\vba\"

d = Dir(PATH & "*.csv")

If d = "" Then
MsgBox "CSV datei nicht finden"
Exit Sub
End If
Range("A3:XFD65536").ClearContents
i = 3
While d <> ""

arr = GetValues(PATH & d)

Range("a" & i).Resize(, UBound(arr) + 1) = arr

d = Dir
If d <> " " Then
Rows(i).Insert
i = i + 1
End If
i = i - 1
Wend
End Sub
Private Function GetValues(ByVal FileName As String)
Dim s As String

Open FileName For Input As #1
s = Input(LOF(1), #1)
Close

GetValues = Split(Split(s, vbNewLine)(1), ";")
End Function

Merhabalar;
GetValues = Split(Split(s, vbNewLine)(1), Chr(34) & Chr(34) & ";" & Chr(34) & Chr(34))

kismini bu sekilde degistirdigimde sorun ortadan kalkiyor gibi..