Search subdirectories and remove empty folders

[Petergotchi]

Private Sub CleanUp()

    Dim sNextDir As String
    sNextDir = Dir(strWorkDir, vbDirectory)
        While sNextDir <> ""
            If (sNextDir <> ".") And (sNextDir <> "..") Then
                Dim sNextFile As String
                sNextFile = Dir(strWorkDir & sNextDir & "\*.*")
                Dim intTeller As Integer
                While sNextFile <> ""
                    intTeller = intTeller + 1
                    sNextFile = Dir
                Wend
                If intTeller = 0 Then RmDir (strWorkDir & sNextDir)
            End If
            sNextDir = Dir
        Wend
End Sub

This code gives me Run Time Error 5 (Invalid procedure call or argument) and highlights this line

 sNextDir = Dir

The purpose of the code is to delete empty subfolders!
Anyone got a clue?
Thx allready