udskriv til tekstfil

Når jeg udskriver data fra excel til en .txt fil....

Hvordan får jeg den til at lave en ; (semicollon) fil i stedet for dette ex. som laver linieskift ... ?

Jeg vil gerne have data således : (hvis der findes 4 kolonner)
navn;nr;beløb;saldo;
claus;1212;100,00;200,00
.....

og den skal selvfølgelig sætte ;; ved tomt felt...


Sub Udskriv_txtfil()
    Dim matrix As Range
    Set matrix = Range("A2:h89")
    Open "u:\claus\text_20.txt" For Output As #1
    For Each x In matrix.Cells
    Print #1, x.Value
    Next
    Close #1
End Sub