char* __stdcall verschl(char *Buffer,char *Data,int DataLen)     {
    //hier findet sich der algorithmus ....
    return Buffer;
}

private declare function verschl(ByRef DataBuffer as String, ByRef DataString _
  as String, DataLen as Integer) as String
 
Sub Form_Load()
  Dim Zeichen as String
  dim Buffer as String
  Zeichen = "Das Ist Ein Test"
  call verschl(Buffer,Zeichen,len(Zeichen))
  msgbox Buffer                               'Sollte jetzt eigendlich wert 
  ' enthalten, tut er aber nicht
End Sub