为什么老报123的错误

这是我写的删除一个用户的命令，程序执行的过程老报123的错误，请问这是为什么？我感觉好像是类型转换时有问题。哪位大侠能帮我看看

说明部分
Private Declare Function NetUserDel Lib "netapi32.dll" (ServerName As String, ByVal Username As byte) As Long


Private Sub Command3_Click()
Rem ******************* 删除用户********************
Dim yhm, yhdm, mima As String
yhm = Trim(Text1.Text)
rem yhm获取用户名
If Len(yhm) = 0 Then
MsgBox ("请输入用户名")
Return
End If
Dim snarry() As Byte
snarry = yhm & vbnullchar
Dim lret As Long
lret = 0
lret = NetUserDel("", snarry(0))
MsgBox lret
End Sub
--------------------编程问答-------------------- 我已经找到问题，第一个参数前加BYVAL即可。谢谢

补充：VB ,  API