German if-Abfrage in Resumable Sub und Debugger

[strupp01]

Habe ein kleines Problem beim Debuggen von Resumable Sub.
Anbei ein kleines Programm, anhand dessen man das Problem erkennt.

Wird das Programm gestartet mit dem Haltepunkt in Zeile 41 und von da an mit F8 weiter durchgesteppt,
so werden alle Zeilen durchlaufen, wie es sein soll.

Wenn nun die auskommentierten Zeilen 60-62 wieder aktiviert werden, wird die Sub Abrage zu einer Resumable Sub.
Soweit alles OK.

Wird jetzt das Programm gestartet und und nach dem Haltepunkt 41 mit F8 weiter durchgesteppt,
so werden die Zeilen 47, 51 und 57 garnicht angelaufen sondern jeweils die darauffolgende Zeile.
Zeile 47, 48, 49 werden garnicht angesteppt. Es sieht so aus, als wenn die Abfrage überhaupt nicht
durchlaufen wird.

Soll das so sein oder liegt hier ein kleiner Softwarefehler vor ?

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    Dim A,B,C,D As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
'    Activity.LoadLayout("Layout")
    A = 1
    B = 2
    C = 3
    D = 4


Abfragen


End Sub


Sub Abfragen   
    If A= 1 Then
        Log("Test A ist OK")
    Else
        Log("Test A ist Falsch")
    End If
    
    If B <> 2 Then
        Log("Test B ist Falsch")
    End If
    
    If C= 3 Then
        Log("Test C ist OK")
    Else
        Log("Test C ist Falsch")
    End If
    
    If D= 4 Then
        Log("Test D ist OK")
        
        Private xui As XUI
        Dim sf As Object = xui.Msgbox2Async("Datum darf nicht in der Zukunft liegen !" ,"Fehlermeldung", "OK", "", "", Null)
        Wait For (sf) Msgbox_Result

    Else
        Log("Test D ist Falsch")
    End If
    
    
    
End Sub

Gruss Strupp01