Dim NombreRed As String = Environment.UserName.ToString