Как возводить число в степень

8=2^3

    Dim a As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a = 658340
        For i = a.ToString.Length To 1 Step -1
            Label1.Text &= i
        Next i
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sum As Integer
        For i = 1 To RichTextBox1.ToString.Length
            sum += Val(Mid(RichTextBox1.Text, i, 1)) * 2
        Next i
        RichTextBox2.Text = sum
    End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sum As Integer
        For i = 1 To RichTextBox1.ToString.Length
            sum += Val(Mid(RichTextBox1.Text, i, 1)) * 2
        Next i
        RichTextBox2.Text = sum
    End Sub

For i = 0 to Len(Число.ToString)
Dim Переборка_чисел As integer = GetChar(Число, i) * 2
' Здесь объявим переменную которая сохранит нам результат
Next

l=len(число)
for i=1 to l
cifra=число mod 10=3
(число \ 10) mod 10=6

Math.Pow(число, степень)

число ^ степень