Limitar o tamanho do texto digitado em textBox Multiline VB ASPX

1)No evento Load da pagina:

'Aceita somente 10 caracteres digitados em textBox1
textBox1.Attributes.Add("maxlength", "10")
textBox1.Attributes.Add("onkeyup", "return ismaxlength(this)")

2)No código HTML da página:
...
 </style>
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">

<script type="text/javascript">
function ismaxlength(obj)
{
    var mlength=obj.getAttribute ? parseInt(obj.getAttribute("maxlength")) : ""
    if (obj.getAttribute && obj.value.length > mlength)
    {
        obj.value = obj.value.substring(0, mlength)
    }
}
...

Copiado de:
http://raphaelcardoso.com.br/dica-limitando-a-quantidade-caracteres-em-um-textbox-do-tipo-multiline/

VB.NET-Informações sobre o usuário logado no Windows

  Public Enum TipoInformacao
    NomeUsuario
    Dominio
    Hostname
  End Enum

  Public Function InformacoesUsuario(Informacao As TipoInformacao) As String
    Select Case Informacao
      Case TipoInformacao.Dominio
        Return System.Environment.UserDomainName.ToString
      Case TipoInformacao.Hostname
        Return System.Environment.MachineName.ToString
      Case TipoInformacao.NomeUsuario
        Return System.Environment.UserName.ToString
      Case Else
        Return "Erro"
    End Select
  End Function