CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to Strip the Null Terminator from a given String
Option Explicit
 
Public Function StripNull(ByVal sExpression As String) As String
 
'Input: String containing null terminator ( chr ( 0 ) )
'Returns: all character before the null terminator

    Dim iNullChar As Integer
    If Len(sExpression) > 0 Then
        iNullChar = InStr(sExpression, vbNullChar)
        Select Case iNullChar
        Case 0
            StripNull = sExpression
        Case 1
            StripNull = ""
        Case Else
            StripNull = Left$(sExpression, iNullChar - 1)
        End Select
    End If
End Function