Visual Basic - ayuda con codigo

Public Shared Function GenerarCodigoActivación(Code As String) As String

	Dim text As String = "56789567895678956789567895678956789567895678956789"

	Dim text2 As String = ""

	Dim arg_31_0 As Integer = 0

	' The following expression was wrapped in a checked-statement

	Dim num As Integer = CInt(Math.Round(CDec(Code.Length) / 2.0 - 1.0))

	Dim num2 As Integer = arg_31_0

	While True

		Dim arg_69_0 As Integer = num2

		Dim num3 As Integer = num

		If arg_69_0 > num3 Then

			Exit While

		End If

		text2 += Conversions.ToString(Conversions.ToInteger(Code.Substring(num2 * 2, 2)) * Conversions.ToInteger(text.Substring(num2, 1)))

		num2 += 1

	End While

	Return text2

End Function