Semikolon statt Komma

Public Sub Export()
'save the target DB file to the internal buffer
Dim ArchPath As String
Dim FileNumber
Dim i As Long
Dim DataLine As String
'initialisation
GoNext = False
'get path and archive name
ArchPath = InputBox("Please, give the path of the source file - e.g. 'C:\archiv.csv'", "Select   _
_
a target Symbolic source file to save a new archiv")
If ArchPath  "" Then GoNext = True
'load data
If GoNext = True Then
With Worksheets("Table")
FileNumber = FreeFile
Open ArchPath For Output Access Write Lock Write As FileNumber
i = 1
While i  ""
Call LineMount(i, DataLine)
Print #FileNumber, DataLine
i = i + 1
Wend
Close FileNumber
End With
End If
End Sub