Private Sub myFunction(ByVal wert As Integer)
     'hier wird einiges abgearbeitet   
     If test = False Then
            'sub mit dem nächsten wert aufrufen
            myfunction(wert + 1)
        Else
            'wieder zurück zum letzten aufruf springen 
        End If
    End Sub