UiPath vb .net encode Flickr photoid base58

photid.vb

Dim CHARS As String = "123456789abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ"
Dim CHAR_NUM As Integer = CHARS.Length
encoded  = ""
dim fid as Int64 = Convert.ToInt64(photoid)
While fid >= CHAR_NUM
    Dim divx As Int64
    Dim modx As Int64
    divx = Math.DivRem(fid, CHAR_NUM, modx)
    encoded = CHARS(CInt(modx)) & encoded
    fid = divx
End While
encoded = CHARS(cint(fid)) & encoded