Here is some code I found here at vb-world that works great.

Function TrimNull(sNullString As String) As String
'=========================================================
'=========================================================
Dim iLen As Integer
Dim iTemp As Integer
Dim sTemp As String

iLen = Len(sNullString)
iTemp = InStr(sNullString, Chr$(0))

If iTemp <> 0 Then
sTemp = Left$(sNullString, iTemp - 1)
sNullString = sTemp
End If

TrimNull = sNullString

End Function