Snippet Library

'
' From a UseNetPosting by Karl E Peterson
'

Option Explicit

Private Declare Function GetCommandLine Lib "kernel32" Alias _
        "GetCommandLineW" () As Long

Private Declare Sub CopyMem Lib "kernel32" Alias _
        "RtlMoveMemory" (pTo As Any, uFrom As Any, ByVal lSize As Long)
Private Declare Function lstrlenW Lib "kernel32" _
        (ByVal lpString As Long) As Long

Public Sub Main()
    Dim lpCmdLine As Long
    lpCmdLine = GetCommandLine()
    MsgBox PointerToStringW(lpCmdLine), , "Command Line"
End Sub

Private Function PointerToStringW(lpStringW As Long) As String
    Dim Buffer() As Byte
    Dim nLen As Long

    If lpStringW Then
        nLen = lstrlenW(lpStringW) * 2
        If nLen Then
            ReDim Buffer(0 To (nLen - 1)) As Byte
            CopyMem Buffer(0), ByVal lpStringW, nLen
            PointerToStringW = Buffer
        End If
    End If
End Function;