Cómo convertir el siguiente código C a código VB

Private Sub CopyWchar(ByVal lpStr As LPCWSTR, ByVal *pBuff As WORD)

Dim nCount As Integer, nLen As Integer = 0

nCount = wcslen(lpStr)

Atenuar ch como WCHAR

Atenuar i como entero

Para i = 0 To nCount- 1 Paso i 1

ch = lpStr( i)

Si ch gt;

Si ch lt; = 0x80 Entonces

Si ch lt; = 0xFF Entonces

Dim - Como ch = 0x80

Else If ch gt; = 0x2000 And ch lt; = 0x266F Entonces

ch = ch - 0x2000 128

Else If ch gt; = 0x3000 Y ch lt；= 0x33FF Entonces

ch = ch - 0x3000 1648 128

De lo contrario, si ch gt；= 0x4E00 Y ch lt；= 0x9FA5 Entonces

ch = ch - 0x4E00 1648 1024 128

De lo contrario, si ch gt；= 0xF900 y ch lt；0xF900 1648 1024 20902 128

Finalizar si

ch = 128

Finalizar si

pBuff(i) = ch

Siguiente

Siguiente

Siguiente

Siguiente

Buff(i) = ch

Siguiente

End Sub

No es necesariamente exacto y es para Sólo referencia. Nunca he usado punteros en VB.

Además, este párrafo funciona bien en VB.net, pero en VB6 tienes que escribir el número hexadecimal como &Hxxxx para que funcione.