Fehler beim Case-Befehl

Hi Leute,
Ich habe da sone kleine codestelle, wo er mir dauernd n Fehler ausgibt, hier der Code:
Public Vorlagen As String
Function LoadVorlage()
Dim Vorlage As String
Dim strDatei As String
Dim Cschleife As String
Cschleife = 0

Select Case Vorlagen
strDatei = FileSystem1.Dir(AppPath() + "Vorlagen/" + "*.db")
While strDatei > ""
Case Cschleife: Vorlage = strDatei

Cschleife = Cschleife + 1
strDatei = FileSystem1.Dir
Wend

End Select
End Function


So und in der Zeile :
Case Cschleife: Vorlage = strDatei
Sagt der mir immer Anweisung erwarted...ich kann mir nicht erklären woher das kommt, weil andere Case Anweisungen in schleifen außerhalb dieses Moduls funktionieren wunderbar.... Kann mir da jemand weiterhelfen ?

strDatei = frmMain.FileSystem1.Dir(AppPath() + "Vorlagen/" + "*.db")
While strDatei > ""
Select Case Vorlagen
Case Cschleife: Vorlage = strDatei
End Select
Cschleife = Cschleife + 1
strDatei = frmMain.FileSystem1.Dir
Wend


So funzt es jetzt, aber ich bekomme jetzt den Fehler:
An Error was encountered while runnig this programm: Invalid procedure call or argument.

Und den möcht ich net mit On error resume enxt wegmachen, sondern dem würd ichs chon gern auf den grund gehen, weil es sonst ja perfekt funzt...

EDIT:
Problem gelöst!