Program not ending

[Mc Brain]

I'm already using a similar code... but it does not end.

Dim frm As Form
    
    Set Juego = Nothing
    Set MessagesToServer = Nothing
    Set Canto = Nothing
    Set Dichos = Nothing
'    Set Quejas = Nothing
    Set fTablero = Nothing
    Set StBy = Nothing
 
    Set ImgLst = Nothing
    Set tFallo = Nothing
 
    Set OtroJuego = Nothing
    
    For Each frm In Forms
        If frm.Name <> Me.Name Then
            Unload frm
            Set frm = Nothing
        End If
    Next
 
    If udpPeer.State Then udpPeer.Close
    
    End  'Just In Case

What's more astonish... is that it refuses to END (see the last line of code).