Sub CryptWithPublicKey(input As String) As String
Dim cipher_ As Cipher
Dim key_ As KeyPairGenerator
Dim msg(0) As Byte
Dim Bconv As ByteConverter
key_.Initialize("RSA",128)
key_.PublicKeyFromBytes(Main.PUBLIC_KEY) ' Here's the exception
cipher_.Initialize("RSA")
msg = cipher_.Encrypt(input.GetBytes("UTF8"),key_,False)
Return Bconv.StringFromBytes(msg,"UTF8")
End Sub