Public Function zhuanxiaoxie(ByVal xsstr As String)
Dim xsa As String
xsa = xsstr
If xsa = "" Then
zhuanxiaoxie = "xsa"
Else
Select Case Asc(xsa)
Case Asc("a") To Asc("z")
zhuanxiaoxie = LCase(xsa)
Case Asc("A") To Asc("Z")
zhuanxiaoxie = LCase(xsa)
End Select
zhuanxiaoxie = Replace(zhuanxiaoxie, " ", "")
zhuanxiaoxie = Trim(zhuanxiaoxie)
If Len(zhuanxiaoxie) < 3 Or zhuanxiaoxie = "" Then
zhuanxiaoxie = Trim(xsstr)
End If
End If
End Function