Dim a, b As Integer
        Dim c As String
        Dim cl As StringInfoA
 
        a = Convert.ToInt16(TextBox1.Text())
        b = Convert.ToInt16(TextBox2.Text())
 
        Button1.Text() = Convert.ToString(Berechne2(a, b))
 
        c = Marshal.PtrToStringAnsi(GetStr2())
        Label1.Text = c
...
    <DllImport("fuerasp.dll", EntryPoint:="GetStr2", SetLastError:=True, _
    ExactSpelling:=True, _
    CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function GetStr2() As IntPtr