Tilpasning af makro - generering af kommafil

Hej alle.

Jeg har en makro som jeg ikke helt kan få til at virke som jeg gerne vil.

Jeg har i dag et regne ark med 8 kolonner. Min makro laver en tekst fil hvor hver kolonne er adskilt af et komma. Men makroen afslutter også med et komma. Dette skal den ikke....

Makroen ser ud som følgende:

Sub LavKommafil()
    Range("A1").Select
   
    'Kolonne = Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Column
    ActiveCell.SpecialCells(xlLastCell).Select
    Kolonne = ActiveCell.Column
   
    Range("A1").Select
   
' Filplacering og Efternavn
    Efternavn = ".txt"
    Inboks = InputBox("Indtast filnavn" & (Chr(10) & Chr(10)) & "Filen får automatisk efternavnet .txt", "Nielsen og Christensen - Eksport af kommafil", "D:\")
' Åbner en fil til output i STI med EFTERNAVN
    Open "" + Inboks + Efternavn + "" For Output As #1

' Løkke - kører alle linier igennem
    Dim iModel As Integer
    Dim sModel As String
    Do
    For iModel = 0 To Kolonne - 1
        sModel = sModel + TilDos850(ActiveCell.Offset(0, iModel)) + ","
    Next iModel
        Print #1, sModel
        sModel = ""
        ActiveCell.Offset(1, 0).Select
       
    Loop Until ActiveCell.Offset(0, 0) = "" And ActiveCell.Offset(1, 0) = "" And ActiveCell.Offset(2, 0) = ""
' Lukker filen #1
    Close #1    ' Luk filen.

' Placering efter udlæsning
    Range("A1").Select
    End
End Sub

Private Sub UserForm_Initialize()
    Application.ScreenUpdating = False
    For ix = 1 To 100 Step 1
    Model.AddItem ix
    Next ix
End Sub

'*====================================================
'* Funktion som i en tekst erstatter ANSI-koderne for
'* æøåÆØÅ til de tilsvarende koder for Dos og OS/2
'* efter tegntabel 850
'*====================================================
Function TilDos850(Tekst As String) As String

Dim ix As Integer, iz As Integer
Dim Tegn As String, Vaerdi As String
Dim Kode(1, 6) As Integer

Kode(0, 0) = 230: Kode(1, 0) = 145 'æ
Kode(0, 1) = 248: Kode(1, 1) = 155 'ø
Kode(0, 2) = 229: Kode(1, 2) = 134 'å
Kode(0, 3) = 198: Kode(1, 3) = 146 'Æ
Kode(0, 4) = 216: Kode(1, 4) = 157 'Ø
Kode(0, 5) = 197: Kode(1, 5) = 143 'Å
Kode(0, 6) = 44: Kode(1, 6) = 46 'Komma , til punktum .

For ix = 1 To Len(Tekst) Step 1
    Tegn = Mid(Tekst, ix, 1)
    For iz = 0 To UBound(Kode, 2) Step 1
        If Asc(Tegn) = Kode(0, iz) Then
            Tegn = Chr(Kode(1, iz))
            Exit For
        End If
    Next
    Vaerdi = Vaerdi & Tegn
Next
TilDos850 = Vaerdi

End Function