怎样在函数或者过程中跳出调用时的过程解决方案

怎样在函数或者过程中跳出调用时的过程
例如一个button的单击事件中有个循环


For i As Integer = 1 to 5
  dy()
Next 


而在模块中定义了这个过程，内部加了一个判断，当条件成立时跳出本过程，同时也跳出那个button事件中的循环

Public Sub dy(Byval i As Integer)
  If i=4 Then
  Exit Sub
  '代码
  End If
End Sub


这样的代码该怎样写？

[解决办法]
可能要写成函数形式,要有一个boolean类型的返回值判断一下
[解决办法]

VB.NET code

        '按钮事件内循环        For i As Integer = 1 To 5            If Not dy(i) Then                '返回false时跳出for                Exit For            End If        Next    Private Function dy(ByVal i As Integer) As Boolean        If i = 4 Then            '满足条件时跳出函数返回false            Return False        End If        Return True    End Function
[解决办法]
Exit For 吧？
[解决办法]
For i As Integer = 1 to 5
  if dy()=false then return
Next 


Public function dy(Byval i As Integer)as boolean
  If i=4 Then
     return false
  '代码
  End If
  return true
End function