تجزیه عدد در vb.net

[ali.rk]

:گیج: با سلام می خواستم بدونم چه جوری می شه یه عدد رو تجزیه کرد .بعدشم کجای این کد من اشتباست ؟

Dim a AsInteger
Dim fi
Dim i AsBoolean
i = True
Dim ted
Dim tedfor
Dim befor
Dim p
p = TextBox1.Text
a = TextBox1.Text
pa = "{ "
fi = 2
befor = 0
While i
If a Mod fi = 0 Then
If a Mod (a / fi) = 0 Then
If befor = fi Then
ted = ted + 1
Else : ted = 1
EndIf
befor = fi
a = a / fi
Else
If a Mod (a / fi) <> 0 Then
If ted > 1 And befor = fi Then
ted = ted + 1
pa = pa & " " & fi & "^" & ted
a = a / fi
ted = 0
If a = 1 Then
i = False
EndIf
Else
If befor <> fi Then
pa = pa & " " & fi & "^1"
a = a / fi
ted = 0
If a = 1 Then
i = False
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndWhile
pa = pa & " }"
Timer1.Enabled = False
EndSub