今回はジェスチャーなので関係ないと思いますが、描画したインクデータを
保持しておきたい場合には、Save メソッドを使うことができます。

Private inkData() As Byte

Private Sub CommandButton1_Click()

    If InkPicture1.InkEnabled Then

        inkData = InkPicture1.ink.Save(MSINKAUTLib.InkPersistenceFormat.IPF_InkSerializedFormat, MSINKAUTLib.InkPersistenceCompressionMode.IPCM_NoCompression)

    End If

End Sub

ストロークに対して付与しておいた ExtendedProperty を取り出したい場合には、
.ExtendedProperties.Add 時に渡した Guid 値を渡して呼び出します。

    Dim ink As MSINKAUTLib.InkDisp

    Set ink = New MSINKAUTLib.InkDisp

    ink.Load inkData

    Dim Stroke As MSINKAUTLib.IInkStrokeDisp

    For Each Stroke In ink.Strokes

        If Stroke.ExtendedProperties.DoesPropertyExist(inkExtendedGuid1) Then

             v = Stroke.ExtendedProperties(inkExtendedGuid1).Data

        ElseIf Stroke.ExtendedProperties.DoesPropertyExist(inkExtendedGuid2) Then

             v = Stroke.ExtendedProperties(inkExtendedGuid2).Data

        End If

    Next

※InkPicture についてはあまり詳しくないので、私自身も調べながら書いてます。
　間違った方向に誘導していたらごめんなさい。