一段VB代码的转换问题

Function URLEncoding(vstrIn) 
        strReturn = "" 
        For i = 1 To Len(vstrIn) 
        ThisChr = Mid(vStrIn,i,1) 
        If Abs(Asc(ThisChr)) < &HFF Then 
        strReturn = strReturn & ThisChr 
        Else 
        innerCode = Asc(ThisChr) 
        If innerCode < 0 Then 
        innerCode = innerCode + &H10000 
        End If 
        Hight8 = (innerCode And &HFF00)\ &HFF 
        Low8 = innerCode And &HFF 
        strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8) 
        End If 
        Next 
        URLEncoding = strReturn 
        End Function 
有没有哪位朋友可以帮忙上面的代码转换成C#的？？真急呀，我自己试了好久了