How to assign an int/string value to a variant in VB2010?

Take a look here[^]
On the bottom of page you'll find an example.

VARIANT v1;
v1.vt = VT_I4;
v1.lVal = 111;

or

VARIANT v1;
v1.vt = VT_BSTR;
v1.bstrVal = SysAllocString("111");

Good luck.

Add

#include "oaidl.h" 

for VARIANT
and Unicode version:

VARIANT v1;
v1.vt = VT_BSTR;
v1.bstrVal = L"111";

should work.

Update Try Unicode version.

This is a tested code (took some time to recall):

#include <oaidl.h>
#include <iostream>
#include <comutil.h>


int main()
{
    VARIANT v1[1];
    v1[0].iVal = 111;
    std::cout<<"int:"<<v1[0].iVal<<'\n';

    BSTR bstrt(L"111");
    v1[0].bstrVal = bstrt;

    std::wcout<<"string:"<<v1[0].bstrVal<<'\n';
return 0;

}