vb.net function output back to input

need this function reverse Friend Function Dekoduj(ByRef kod As String) As Long Dim num As Long If [login to view URL](kod, num) Then If num < 123457L Then Return num End If Dim text As String = Odpowiednik([login to view URL]()) If text IsNot Nothing Then kod = text End If End If Dim text2 As String = "$123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" kod = [login to view URL]() Dim i As Integer = 0 Dim num2 As Long = 0L While i < [login to view URL] Do Dim num3 As Integer = [login to view URL](kod(i)) num2 = num2 * 36L + CLng(CULng(num3)) i += 1 Loop While i < [login to view URL] End While Return num2 End Function