You probably tought about this one, but that is the way I do it and the only way I have found out...

Dim myStr$, pos%
'code goes here
pos = InStr(myStr, Chr(0))
If pos <> 0 Then
myStr = Left(myStr, pos - 1)
End If