Dim bitti As Boolean

Private Sub CloseBtn_Click()
    Dim bittimi As Boolean
    bittimi = first
End Sub

Private Sub Komut381_Click()
    WasteTime
End Sub

Function first() As Boolean
    bitti = False
    Dim i, ii, iii As Integer
   
    For i = 1 To 100
        For ii = 1 To 10
            For iii = 1 To 10
            DoEvents
            Next
        Next
    Next
    bitti = True
End Function

Sub WasteTime()
    Do
        DoEvents
    Loop Until bitti = True
    MsgBox "merhaba"
End Sub