Ez igy jo a szimulatorban...nalam KJ -------------------------- Dim I As Integer I = 4 Do If I <= 5 Then Goto Vege End If I = 7 Vege: Loop