Visual Basic

Call MyCString(myStringCopy, k, lengthOfStrings)

Dim myStringCopy As String ' no fixed size
Dim k
Dim lengthOfStrings
Dim MyString(0 To 2) As String

    MyString(0) = "a"

    MyString(0) = Left(MyString(0) & String(10, Chr(0)), 10)

 
    MyString(1) = "bbbb "
     MyString(1) = Left(MyString(1) & String(10, Chr(0)), 10)
    MyString(2) = "mmmm"
     MyString(2) = Left(MyString(2) & String(10, Chr(0)), 10)
     
    For i = 0 To 2
    myStringCopy = myStringCopy + MyString(i)
    Next

nt MakeArray(char* ByValString, int numberOfStrings, int lengthOfStrings, char*** pStringArray)
{
	int i;

	*pStringArray = (char**) malloc(numberOfStrings*sizeof(char*));

	if (!(*pStringArray)) return(1);


	for (i = 0 ; i < numberOfStrings ; i++)
	{
		(*pStringArray)[i] = &(ByValString[lengthOfStrings*i]);
	}


	return(0);
}

__declspec( dllexport ) void MyCString(char * ByValString,int numberOfStrings, int lengthOfStrings)
{
	char** stringArray;

	rtnVal = MakeArray(ByValString, numberOfStrings , lengthOfStrings, &stringArray);
	printf(stringArray[1]);
	free(stringArray);
}