用VB写的一段代码，编译时出错：“必选参数”，出错部分标注在　＜――――处，求助各位高手，错在哪里，请指教。先谢了。

Dim Str1 As String
Dim Str2 As String
Dim dicStr() As String
Dim finalPassWord As String

Private Sub Command1_Click()　　＜―――－
Open "d:\pass.txt" For Output As #1
CreatPassWord " "　　　＜―――――――
Close #1
End Sub

Private Sub Form_Load()
Str1 = "PXHTSW"  '所有构成密码的有效字符
Str2 = "23456789"  '所有构成密码的有效字符
ReDim dicStr(1 To Len(Str1)) As String
ReDim dicStr(Len(Str1) = 2)
ReDim dicStr(1 To Len(Str2)) As String
ReDim dicStr(Len(Str2) = 4)
For i = 1 To Len(Str1 + Str2)
    Next
End Sub

Function CreatPassWord(t, Str1, Str2 As String)
'穷举所有密码
If Len(Str1) Then If Len(Str2) = 6 Then 最多6位
    For i = 1 To UBound(dicStr)
        DoEvents
        If Len(t) + 6 Then
            finalPassWord = t & dicStr(i)
            Print #1, finalPassWord  '输出密码外存
        End If
        CreatPassWord t & dicStr(i)
    Next
End If
End Function

[课程]Linux pwn 探索篇！