Komma istedet for punktum

Hejsa,

jeg har et lille problem, det program jeg har fået lavet, sætter punktum i tallene istedet for komma, hvordan løser jeg det!

Private Sub Command1_Click()

Dim data(16), linie As String
Dim a As Integer
Dim Filnavn1 As String
Dim Filnavn As String
On Error GoTo err:
Filnavn = Text1.Text
Filnavn1 = \"c:\\dokumenter\\mm.txt\"
Open Filnavn For Input As #1
Open Filnavn1 For Output As #2
  Do Until EOF(1)
    For a = 0 To 15
        If EOF(1) Then Exit For \' <-  indsæt
          Line Input #1, data(a)
          If data(a) = \"GROUP 00008000\" Then a = \"1\"
        \'  End If
          If data(a) = \"END GROUP\" Then a = \"0\"
           
         
    Next

   
    linie = (data(1))                    \'første data - i eksemplet: 1
       
    For a = 2 To 14                          \'komma og følgende data
       
      linie = linie & \";\" & (data(a))    \'Med valør (val) undgår du \" \" om tallene.
 
    Next
    Print #2, linie                              \'strengen linie skrives til ud-filen
    linie = \"\"                                    \'strengen linie tømmes for indhold
  Loop
Close #1
Close #2

 
err:
    If err.Number = 53 Then
    MsgBox \"Error:\" & vbCrLf & \"Du skal indtaste den rigtige sti eller det rigtige fil navn\", vbExclamation
    End If
    If err.Number = 0 Then
    MsgBox \"OK:\" & vbCrLf & \"Konverteringen gik fint\"
    Else
    MsgBox \"Error:\" & vbCrLf & err.Description & vbCrLf & err.Number, vbExclamation
    End If
   
    Exit Sub
End Sub

Det var sådan programmet ser ud!