vb.net 生成guid的维一的8位标识码

vb.net 生成guid的维一标识编码，因为net系统默认生成为的是32位长度的，这样会导致数据在存储方面，占用更多的空间，同时也给数据遍历的时候增加了性能，经过我的多年开发经验，生成8位的gui就可以完全够用，在同一台服务器，生成的guid永远不会重复。

  ''' 

  ''' 生成新的ID值
  ''' 
  '''
  Function NewGUID(Optional Len As Integer = 8, Optional T As Integer = 0) As String '生成GUID码
    Dim N As String
    If T = 0 Then
      N = Guid.NewGuid.ToString.Replace("-", "").ToLower
      Return N.Substring(N.Length - Len, Len)
    End If
    Dim rd As New Random() : N = ""
    For i As Integer = 1 To Len : N &= rd.Next(0, 9) : Next
    Return N
  End Function