计算机二级VB常用算法：进制转化进10进制数

下面程序是把给定的16进制正整数转换为10进制数。 以下是片段：
　　Option Explicit
　　Private Sub Form_Click()
　　Dim St As Integer， Dem As Long
　　St=InputBox("输入一个十六进制数")
　　Dem=Convert(St)
　　Print St; ">="; Dem
　　End Sub
　　Private Function Convert(S As String)As Long
　　Dim N As Integer， I As Integer，Substring As String*1
　　Dim P As long， K As Long，Asc1 As Integer
　　N= (1)
　　P=16^N
　　For I=1 To N
　　P=P/16
　　Substring= (2)
　　Select Case Substring
　　Case "0" To "9"
　　K=K+P*Val(Substring)
　　Case (3)
　　Asc1=Asc(Substring)-Asc("A")+10
　　(4)
　　End Select
　　Next I