riak-vba-client sample

fetch_sample.bas

Dim node As RiakNode
Set node = New RiakNode
node.RemoteAddress = "127.0.0.1"
node.Port = 10018
 
Dim response As RiakResponse
Set response = node.Fetch("bucket1", "key1")

If response.isSuccess Then
    Dim obj As RiakObject
    For Each obj In response.Objects
        MsgBox obj.value
    Next
Else
    MsgBox "Fetch operation failed - " & response.Reason
End If