Public Function dhTrimNull(ByVal strValue As String) As String Dim lngPos As Long lngPos = InStr(strValue, vbNullChar) Select Case lngPos Case 0 ' Not found ...
確定！ 回上一頁
