label in userform mit lfd. werten befüllen

Sub BVWPDossierErstellen()
'Variablen deklarieren
Dim dblErsteZeile As Double 'Startzeile der do while-Schleife
Dim strDosMuster As String 'Variable für das Sheet Musterdossier
Dim strRohdat As String 'Variable für das Sheet mit den BVWP-Rohdaten
Dim strProj As String
Dim dblaktDos as Double
'Variablen mit Werte aus dem Sheet "VBA_Einstellungen" befüllen
dblaktDos = 0
strProj= "Dos_"
strRohdat = Sheets("VBA_Einstellungen").Range("B1").Value
strDosMuster = Sheets("VBA_Einstellungen").Range("B3").Value
dblErsteZeile = Sheets("VBA_Einstellungen").Range("B2").Value
With Sheets(strRohdat).Activate
'do while-Schleife, die die erste Spalte bis zur ersten leeren
'Zelle durchläuft und den Zellwert in einer Variablen übergibt
Do While Not IsEmpty(Cells(dblErsteZeile, 1))
strProj = Cells(dblErsteZeile, 1).Value
dblaktDos = dblaktDos + 1
dlgDossier.lblStatus.Caption = Str(dblaktDos) + ".Dossier von insges. " + Str(25) +  _
_
_
_
_
_
_
" wird erstellt!"
Sheets(strDosMuster).Copy Before:=Sheets(strDosMuster)
ActiveSheet.Name = strPrefix & strProj
Sheets(strRohdat).Activate
'MsgBox dblaktDos
dblErsteZeile = dblErsteZeile + 1
Loop
End With
End Sub