vb.net Арифметическая операция вызвала переполнение. 2012

Question

Привет, я продолжаю получать эту ошибку

Арифметическая операция привела к переполнению.

с этим кодом, пожалуйста, помогите мне исправить спасибо

 Dim text As String = "hotel165593"
    Dim char_ As Char() = text.ToCharArray()
    Dim num As ULong = 3074457345618258791UL
    Dim i As Integer = 0
    Dim num2 As Integer = char_.Length
    While i < num2
        num += Convert.ToUInt64(char_(i))
        num *= 3074457345618258799UL
        i += 1
    End While

    End Sub