'Call ...' doesn't work.

[ajesion]

Please help me with correct 'Private Sub otw()' code. Function 'Call otw' doesn't work.

Private Sub otw()
    If ActiveDocument Is Nothing Then OpenDocument (p)
    If ActivePage.Shapes.Count = 0 Then ActiveDocument.Close: OpenDocument (p)
End Sub

Private Sub otwórz_sD1_Click()
    p = "D:\Stricte\Os\a1.cdr"
    	Call otw
    Unload Me
End Sub

Private Sub otwórz_sD2_Click()
    p = "D:\Stricte\Os\a2.cdr"
    	Call otw
    Unload Me
End Sub

...
to 'a12.cdr'