Little Problem?

[New to VB 6]

I'm using this code to try to kame 2 different controls but when I try to run my app I get a compile error: agrument not optional.

Why?

ListFiles (CheckPath(App.Path) & "Favorites\")
ListhFiles = (CheckPath(App.Path) & "history\")
 
 
Public Sub ListFiles(sFolder As String)
Dim i As Integer
Dim sFilename As String
Dim iCount As Integer
Dim FSO As New FileSystemObject
 
iCount = 1
 
' Remove flags for files you don't want to include
 
sFilename = Dir(FSO.BuildPath(sFolder, "*.wwu"), vbNormal Or vbHidden Or vbSystem Or vbReadOnly)
sFilename = Left(sFilename, InStrRev(sFilename, ".") - 1)
On Error Resume Next
mnuViewFiles(0).Caption = sFilename
mnuViewFiles(0).Visible = True
 
Do
  sFilename = Dir()  ' Get next filename
  If Trim$(sFilename) = vbNullString Then Exit Sub
  Load mnuViewFiles(iCount)
  sFilename = Left(sFilename, InStrRev(sFilename, ".") - 1)
  mnuViewFiles(iCount).Caption = sFilename
  mnuViewFiles(iCount).Visible = True
  iCount = iCount + 1
Loop
 
End Sub
Private Function NormalizePath(sFolder As String, hfolder As String) As String
 
sFolder = Trim$(sFolder)
hfolder = Trim$(hfolder)
 
If Right$(sFolder, 1) <> "\" Then sFolder = sFolder & "\"
NormalizePath = sFolder
If Right$(hfolder, 1) <> "\" Then sFolder = hfolder & "\"
NormalizePath = hfolder
 
End Function
 
Public Sub ListhFiles(hfolder As String)
Dim i As Integer
Dim hFilename As String
Dim iCount As Integer
Dim FSO As New FileSystemObject
 
iCount = 1
 
' Remove flags for files you don't want to include
 
hFilename = Dir(FSO.BuildPath(hfolder, "*.wwu"), vbNormal Or vbHidden Or vbSystem Or vbReadOnly)
hFilename = Left(hFilename, InStrRev(hFilename, ".") - 1)
On Error Resume Next
Toolbar1.Buttons(1).ButtonMenus(0).Text = hFilename
Toolbar1.Buttons(1).ButtonMenus(0).Visible = True
 
Do
  hFilename = Dir()  ' Get next filename
  If Trim$(hFilename) = vbNullString Then Exit Sub
  Load Toolbar1.Buttons(1).ButtonMenus(iCount)
  hFilename = Left(hFilename, InStrRev(hFilename, ".") - 1)
  Toolbar1.Buttons(1).ButtonMenus(iCount).Text = hFilename
  Toolbar1.Buttons(1).ButtonMenus(iCount).Visible = True
  iCount = iCount + 1
Loop
 
End Sub