---

Public Function CStringToVBString(psCString As String) As String
Dim sReturn As String
Dim iNullCharPos As Integer

iNullCharPos = InStr(psCString, vbNullChar)

If iNullCharPos > 0 Then
sReturn = Left(psCString, iNullCharPos - 1)
Else
sReturn = psCString
End If

CStringToVBString = sReturn

End Function

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.