基础问题：转换时出现错误

Question

用Clng转换字符串为数字时报错：    strTemp="G00000001"
    intTemp=Clng(strTemp)   '这里报错，运行时错误

Answer 1

    intTemp=Clng(mid(strTemp,2))

Answer 2

Dim i As Integer
Dim strtem As String
Dim strtemp As String
strtemp = "G2d000001"
For i = 1 To Len(strtemp)
  If Asc(Mid(strtemp, i, 1)) >= 48 And Asc(Mid(strtemp, i, 1)) <= 57 Then
strtem = strtem & Mid(strtemp, i, 1)
    End If
    Next
    intTemp = CLng(strtem)
    Print intTemp