Не пойму, что я делаю не так - VB

Формулировка задачи:

Подскажите пожалуйста, как мне подключиться к DLL.
Имеется код для C++:

extern "C" void  __declspec(dllexport) __stdcall ctp_Encode7bit(char* in, char* out)

in - входящее значение
out - исходящее значение
Вот комментарий разработчика этой DLL:
"out хотябы на байт больше чем выходная строка, лишнее распределить не страшно"
"ты сам выделяешь память а я ее уже заполняю строкой"
"в принципе ты можешь out точно также определить и инициализировать любой строкой заведомо большого размера или вызвать функцию выделения памяти"
Пробую сделать вот так:
(in заменено на inp
out заменено на outp)

Private Declare Sub ctp_Encode7bit Lib "gsmvoice.dll" (ByVal inp As String, ByVal outp As String) 

Public Sub Encode7bit(input_txt As String)
Dim bb as string
Call ctp_Encode7bit(input_txt, bb)
MsgBox bb
End Sub

Private Sub Command1_Click()
Call Encode7bit("123")
End Sub

У меня ничего не получается с таким кодом. Здесь я явно что-то не так делаю.
Подскажите пожалуйста, как правильно?
Как нужно построить код, чтобы на входе задать текст "123" например, а на выходе получить его кодировку, которую сделает функция ctp_Encode7bit?

Решение задачи: «Не пойму, что я делаю не так»

textual
                            Листинг программы 
                        

                            sub Encode()
dim src as string
dim dst as string


src = "123"
dst = src & src ' выделяем память для новой строки чтобы все работало
src=StrConv(src, vbStrConv.vbFromUnicode)
ctp_Encode7bit strptr(src), strptr(dst)
dst = StrConv(dst, vbStrConv.vbUnicode) 
msgbox dst

end sub

                        