HJÆÆÆÆLP!!!

Er der nogen der kan fortælle mig hvad der er galt i dette her stykke kode??

Private Sub mnu_nypro_Click()
Dim i As Integer, j As Integer, ok As Integer
On Error GoTo 1

CommonDialog1.ShowSave

Fil = CommonDialog1.FileName

If Dir(CommonDialog1.FileName) <> \"\" Then

ok = MsgBox(\"Vil du overskrive det eksisterende projekt?\", vbYesNo + vbCritical, \"Nyt projekt\")

Open CommonDialog1.FileName For Output As #1
For j = 1995 To 2020
    For i = 0 To 11
        maaned(i, j) = 0
        Print #1, maaned(i, j)
    Next
Next

Close #1

Open Fil For Input As #1
For j = 1995 To 2020
    For i = 0 To 11
        Line Input #1, maaned(i, j)
    Next
Next

Close #1

1
End Sub

På forhånd mange tak!!

dth :-)