Я хотел бы перевести приведенный ниже код Python на vb.net-да. Я был бы благодарен, если бы мог помочь

---

# rle-decode.py
def rle_decode(data):  
    decode = ''
    count = ''
    for char in data:
        # If the character is numerical...
        if char.isdigit():
            # ...append it to our count
            count += char
        else:
            # Otherwise we've seen a non-numerical
            # character and need to expand it for
            # the decoding
            decode += char * int(count)
            count = ''
    return decode

Что я уже пробовал:

Function rle_decode( data as string) as string 

    Dim Count As Integer


    ' #1: Loop until the end of the string.
    For Count = 0 To Len(data) - 1
        '
        If char.isdigit() Then
            Count+= 1
        Else


          decode+= char * count
          count = 0
        End If
    Next

End Function 

---