char*	UserName = NULL;

UserName = NewUserName; //char* NewUserName  

int __stdcall CPP_Get_Registration_Information(char * MyUserName)
{ 
  MyUserName = UserName;
  return 0;
}

Private Declare Function CPP_Get_Registration_Information Lib "MyTestDll.dll" _
 (ByVal NewUserName As String) As Long
Private Sub CommandGetRegistrationInformation_Click()
  Dim NewUserName As String
  NewUserName = String$(255, 0)
  CPP_Get_Registration_Information NewUserName
  MsgBox NewUserName
End Sub

Declare Function CPP_Get_Registration_Information Lib "MyTestDll.dll" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function GetRegName() As String
Dim RegName As String
    ' Receive a Registration Info from API's CPP_Get_Registration_Information  function
     RegName = String$(255, 0)
     GetRegName = Left(RegName, CPP_Get_Registration_Information(RegName, InStr(RegName, Chr(0)) - 1))
End Function

int		TrialDaysTotal		= -1,
		TrialDaysLeft		= -1;
...
	TrialDaysTotal = Total;
	TrialDaysLeft  = Left;
...
extern "C" {
int __stdcall CPP_Get_Trial_Days(int * Total, int * Left)
{ 
  * Total = TrialDaysTotal;
  * Left = TrialDaysLeft;
  return 0;
}

Private Declare Function CPP_Get_Trial_Days Lib "MyTestDll.dll" _
 (ByRef Total As Long, ByRef Left As Long) As Long

Private Sub CommandGetTrialDays_Click()
  Dim Total As Long
  Dim Left As Long
  
  CPP_Get_Trial_Days Total, Left
  
  MsgBox "Total=" & Total & " Left=" & Left
End Sub

//C++
extern "C" {

char * __stdcall CPP_Get_Registration_Information()
{ 
  return UserName;
}
...

'VB6
Private Declare Function CPP_Get_Registration_Information Lib "MyTestDll.dll"  () As Long

Private Sub CommandGetRegistrationInformation_Click()
  MsgBox PtrToString(CPP_Get_Registration_Information)
End Sub

Function PtrToString(Ptr As Long) As String
    Dim Data As Byte
    Dim str As String
    Dim i As Long
    str = ""
    If Ptr <> 0 Then
        For i = 0 To 10000 '255
            CopyMemory Data, ByVal Ptr + i, 1
            If Data = 0 Then Exit For 'конец строки \0
            str = str & Chr(Data)
        Next i
    End If
    PtrToString = str
End Function

char*	UserName			= NULL;

void __declspec(dllexport) __stdcall GetRegistrationInformation(char* NewUserName){

	UserName = NewUserName;
}

extern "C"  BSTR  __declspec(dllexport) __stdcall fnString()
{
	char* retVal = "Самодур";
	return ::SysAllocStringByteLen(retVal,strlen(retVal));	
}

int WINAPI GetWindowText(
  _In_   HWND hWnd,
  _Out_  LPTSTR lpString,
  _In_   int nMaxCount
);

Private Declare Function GetWindowText Lib "user32" Alias _
 "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, _
 ByVal nMaxCount As Long) As Long
...
  Dim buf As String * 256
  Dim Title As String
  Dim length As Long

  ' Get the window's title.
  length = GetWindowText(app_hwnd, buf, Len(buf))
  Title = Left$(buf, length)

char*	UserName			= NULL;
....
  UserName = NewUserName; //короче в char* точно есть строка "1-0-0" из 5 символов не считая \0
...

extern "C" {

int __stdcall LPTSTR_Get_Registration_Information(LPTSTR lpString, int nMaxCount)
{ 
  int lenth = (int) strlen(UserName);
  lpString = (LPTSTR)UserName;
  if (lenth < nMaxCount) {
    lpString[lenth] = 0;
    return lenth;
  }
  else {
    lpString[nMaxCount - 1] = 0;
    return nMaxCount - 1;
  }
}

Private Declare Function LPTSTR_Get_Registration_Information Lib "LicenseDll.dll" _
 (ByVal lpString As String, ByVal nMaxCount As Long) As Long

Private Sub CommandGetReg_Click()
  Dim buf As String * 256
  Dim RegInfo As String
  Dim length As Long
  
  length = LPTSTR_Get_Registration_Information(buf, Len(buf))
  MsgBox length
  RegInfo = Left$(buf, length)
  MsgBox RegInfo
End Sub