Dim g() As String = Array As String("aaaaa","bbbb","ccccc")
...
RunNative("arrayLister",g)
...
void arrayLister(B4R::Object * o){
// params are object, index you want
// following line Object is o and the index is 1
const char * thisString = OBJtoStringfromArray(o,1);
Serial.println(thisString);
}