Процедура не позволяет передать больше одного параметра

[Maryver]

Подскажите, пожалуйста, в чем ошибка:
Есть процедура следующего вида:

Sub Create_Template(ByVal TemplateName As String, Optional ByVal DateofVal As Date = "01.01.2011", _
Optional ByVal DateStart As Date = "01.01.2008", Optional ByVal n As Integer = 15)
...
End sub

И процедура, которая вызывает предыдущую:

Private Sub CommandButton1_Click()
Dim ndate As Date, n as integer
    ndate = CDate(Label6.Caption)
    n = 10
    For i = o To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then Create_Template (ListBox1.List(i))
    Next i
    Unload Me
End Sub

В таком виде все ок, все выполняется. Но как только я добавляю параметры, меняя строчку, например так:

 If ListBox1.Selected(i) = True Then Create_Template (ListBox1.List(i),,,n)

Мне выдает Compile error. Expected :=

[IgorGO]

пробуйте так:

If ListBox1.Selected(i) = True Then Create_Template(TemplateName:=ListBox1.List(i), n:=n)

[Казанский]

ИМХО скобки лишние, и "= True" можно убрать

If ListBox1.Selected(i) Then Create_Template ListBox1.List(i),,,n

[Maryver]

@Казанский, спасибо огромное. Действительно, как только скобки убрала, все заработало.
(только не очень понятен принцип, когда их нужно ставить, когда нет)

[Казанский]

Читайте справку по Call Statement:

If you omit the Call keyword, you also must omit the parentheses around argumentlist.

[IgorGO]

Казанский, спасибо!

я провтыкал Sub в начале, вижу Expected :=, "ожидалось присвоить", я и налепил... горбатых к стене
в моем "пробуйте" - была доля сомнений...