SAFEARRAY Data

I am having trouble usinf a VB6 program to read the actual data contained within a SAFEARRAY.  I can get the dimensions, element size etc, but have been unable to read the actual data.  Using watch, I can see the character numbers, but cannot get program to give me the alpha string.  Here is the code I am using, with the problem area between the  '########' lines.  

I am weak in this area, so need help!!

Function GetArrayInfo(TheArray As Variant, ArrayInfo As SafeArray) As Boolean
    Dim lp As Long         ' work pointer variable
    Dim VType As Integer   ' the VARTYPE member of the VARIANT structure
    Dim Count As Integer
    Dim TempString As String
    Dim Dest() As Byte

    ' Exit if no array supplied
    If Not IsArray(TheArray) Then Exit Function

    With ArrayInfo
        ' Get the VARTYPE value from the first 2 bytes of the VARIANT structure
        CopyMemory VType, TheArray, 2

        ' Get the pointer to the array descriptor (SAFEARRAY structure)
        ' NOTE: A Variant's descriptor, padding & union take up 8 bytes.
        CopyMemory lp, ByVal VarPtr(TheArray) + 8, 4

        ' Test if lp is a pointer or a pointer to a pointer.
        If (VType And VT_BYREF) <> 0 Then
            ' Get real pointer to the array descriptor (SAFEARRAY structure)
            CopyMemory lp, ByVal lp, 4
        End If

        ' Fill the SAFEARRAY structure with the array info
        ' NOTE: The fixed part of the SAFEARRAY structure is 16 bytes.
        CopyMemory ArrayInfo.cDims, ByVal lp, 16

        ' Ensure the array has been dimensioned before getting SAFEARRAYBOUND
        ' Information
        If ArrayInfo.cDims > 0 Then
            ' Fill the SAFEARRAYBOUND structures with the array info
            CopyMemory .rgsabound(1), ByVal lp + 16, _
                ArrayInfo.cDims * Len(.rgsabound(1))

            ' So caller knows there is information available for the array in
            ' output SAFEARRAY
            GetArrayInfo = ArrayInfo.cDims
           
      '##################################################
        'This is declared elsewhere ( VarPtrArray )
       ' Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Ptr() As Any) As Long
       
            ReDim Dest(.rgsabound(1).cElements)
            For Count = 1 To .rgsabound(1).cElements
                CopyMemory ByVal VarPtrArray(Dest), VarPtr(lp), 4
                Debug.Print Dest
            Next Count
           
     '##################################################

           
        End If
    End With

End Function