Excel macro - kako ga preurediti?

Sub Makro1()
'
'
direktorij$ = "N:\meritve"
ChDir direktorij$
filetoopen$ = Application.GetOpenFilename("CSV Files (*.csv), *.csv", , "Open file")
If filetoopen$ = "False" Then Exit Sub

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" + filetoopen$, _
Destination:=Range("A1"))
.Name = filename(filetoopen$)
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
....
....
End Sub


Function filename(datoteka As String) As String

      cx = Len(datoteka)
      If (InStr(datoteka, "\") <> 0) Or (InStr(datoteka, "\") <> 0) Then
        While (Mid$(datoteka, cx, 1) <> "\") And (Mid$(datoteka, cx, 1) <> "/")
              cx = cx - 1
        Wend
        x1$ = Mid$(datoteka, cx + 1)
        cx = Len(x1$)
        If (InStr(x1$, ".") <> 0) Then
           While (Mid$(x1$, cx, 1) <> ".")
                 cx = cx - 1
           Wend
           filename = Mid$(x1$, 1, cx - 1)
        Else
           filename = x1$
        End If
      Else
        filename = datoteka
      End If

End Function