Makro ved Skrivebeskyttelse

Jeg har tidligere fået hjælp til en makro - se evt. dette link
http://www.eksperten.dk/spm/131698

Men markoen fungerer ikke længere, den kan ikke lide den del der omhandler MsgBox, her får jeg en syntax error. Kan nogen hjælp ?

Min makro ser således ud :

Sub VALUTA()
application.DisplayAlerts = False
On Error GoTo test
    Workbooks.Open ("\\nkm18525\PROJDATA\OEKONOMI\Menu\Bogholderi\Div\Valuta.xls"), , , , , , , , , , False
    application.DisplayAlerts = True
    Exit Sub
test:
   
    svar = MsgBox(\"Filen er låst af anden bruger. Åbn alligevel ??\", vbOKCancel)

    If svar = 1 Then Workbooks.Open ("\\nkm18525\PROJDATA\OEKONOMI\Menu\Bogholderi\Div\Valuta.xls") Else Exit Sub
application.DisplayAlerts = True

End Sub