求各位大神帮忙翻译一个vb代码，课程设计时间紧啊

Function GenNnm() As String
Dim str1 As String
Dim i As Integer, Num As Integer
Dim usechar As String
usechar = "0102030405060708091011121314151617181920212223242526272829303132333435"
str1 = ""
Randomize
For i = 1 To 36
Num = Len(usechar) * Rnd + 1
If Num Mod 2 = 1 Then
str1 = str1 + Mid(usechar, Num, 2)
Else
str1 = str1 + Mid(usechar, Num - 1, 2)
End If
Next i
GenNnm = str1
End Function
这是彩票选号器代码的一部分~