jeg får fejl, og kan ikke se hvad der er galt

Jeg har en søge form, som jeg bliver ved med at få fejl i.
I min userform er der:
listbox1
Comandbutton1 (start søgning)
Comandbutton2 (userform1.hide)
Textbox1 (indput)
Min form ser såden ud:
Private Sub CommandButton1_Click()
With Application.FileSearch
        .NewSearch
        .LookIn = "G:\SJA CATALOGUE\Approved SJAs"
 
        .Filename = Val(Me.TextBox1)("*.doc")
        .SearchSubFolders = True
        .Execute
        .FileType = msoFileTypeWordDocuments
       
        For i = 1 To .FoundFiles.Count
            ListBox1.AddItem .FoundFiles(i)
        Next
    End With
End Sub

Jeg får fejl i denne linje:
.Filename = Val(Me.TextBox1)("*.doc")

Den skal kigge efter word doc.
Har nu prøvet at finde ud af hvad der er galt, men er nok ved at være lidt træt, please help...