又出问题,定义了个function模块,如下:
Public Function blmforlen(blm1 As String) As String
Dim blmnospace As String
Dim len1 As Integer
blmnospace = Trim(blm1)
len1 = Len(blmnospace)
Select Case len1
Case 14
blmforlen = Mid(blm1, 1, 11)
Case 13
blmforlen = Mid(blm1, 1, 10)
Case 12
blmforlen = Mid(blm1, 1, 9)
Case 11
blmforlen = Mid(blm1, 1, 8)
Case 10
blmforlen = Mid(blm1, 1, 7)
Case Else
blmforlen = Null
End Select
End Function