lstrlenW (Kernel32)

Usage

    Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Integer) As Integer

    Private Function StrPtr(MyString) As IntPtr
        ' GC handle instance

        Dim gh As GCHandle = GCHandle.Alloc(MyString, GCHandleType.Pinned)
        ' get address of variable

        Dim AddrOfMyString As IntPtr = gh.AddrOfPinnedObject()
        StrPtr = AddrOfMyString
        ' free the handle and unpin variable

        gh.Free()

    End Function

    Dim l As Integer = lstrlenW(StrPtr("123"))