VC代码转VB

本人对VC不通，现有段VC的代码需要转成VB
自己已经先转了下，虽然执行时没有报错，但一直得不到自己要的效果，不知道是不是自己转换错了。
VC代码如下：

void CDemoDlg::OnBtnWriteSN() 
{
// TODO: Add your control notification handler code here
CDevSNDlg devSNDlg;
if (IDOK != devSNDlg.DoModal())
{
m_static_tip.SetWindowText("用户取消操作");
return;
}

char pData[256] = {0};
sprintf(pData,"%s",devSNDlg.m_strDevSN.GetBuffer(0));
int nLength = devSNDlg.m_strDevSN.GetLength();
int ret = mxWriteDevSN(pData,nLength);
if (ret != 0)
{
m_static_tip.SetWindowText("写入设备序列号失败");
}
else
{
m_static_tip.SetWindowText("写入设备序列号成功");
}
}


希望高人能帮着转一下，mxWriteDevSN是引用的一个DLL的函数。

你以为转语言很容易吗
整个思路都要变