Error VB.Net 2010

[TMarmol]

Creo este post por que tengo un problema con VB.net 2010 y es que estoy creando un crypter con un tutorial para hacer uno genérico y tu le metes la encriptacion que tu quieras con las claves que quieras y la cosa es que la versión de Visual Basic del tutorial es distinta a la mía y me crea algunos problemas.

El que me salta es este

Código (VB) [Seleccionar] Expandir

#Const key1 = " c2FkZjg3NjhxdzRoa2psZnNkODk3eTgzNCZzODkyISQltyJTRCK3JVNERnNhZGY0d2U "
#Const key2 = " aHNkbGtmamhsYXNpNzg5NDM1M7ckJV+3JDMkJVa3JbckIDMsIbc0LTU0NTZ+I36sMrcltyQlMw "
#Const key3 = " JSS3JSYkJSK3JEO3Ika3VkJTRSUmQiQlJi8lJCZDICIzcjIzY2xra2huZnJrZXcytyQlJCUmLyQlamlqaWo "
Public Function srandom()   ---> La instrucción no es valida en un espacio de nombres
    Dim dim1 As String
    Dim dim2 As Integer
    p**a = key1 + key2 + key3
    For warra = 1 To 50
        srandom = srandom & Mid$(p**a, Int((Rnd() * Len(p**a)) + 1), 1)
    Next warra

End Function

Public Class Form
...

Y mas adelante cuando llamo a srandom, me pone que no esta declarado o que es inaccesible.