Sub Irgendwas()
Dim lngStamm1 As Long
Dim strStamm1 As String
Dim lngStamm2 As Long
Dim strStamm2 As String
Dim lngStamm3 As Long
Dim strStamm3 As String
lngStamm1 =1
Do
strStamm1 = Format(lngStamm1, "00.")
lngStamm2 = 1
Do
strStamm2 = Format(lngStamm2, "00.")
lngStamm3 = 1
Do
strStamm3 = Format(lngStamm3, "00"
[ Dein Code, was beim Stamm3 zu tun ist ]
lngStamm3 = lngStamm3 + 1
If Kriterium3 = WasAuchImmer Then Exit Do
Loop
[ Dein Code, was beim Stamm2 zu tun ist ]
lngStamm2 = lngStamm2 + 1
If Kriterium2 = WasAuchImmer Then Exit Do
Loop
[ Dein Code, was beim Stamm1 zu tun ist ]
lngStamm1 = lngStamm1 + 1
If Kriterium1 = WasAuchImmer Then Exit Do
Loop
End Sub