vb中如何寻找特定的数字？

Dim S As String,A
S="jdifeuA34dke334"
A=Split(S,"A") '区分大小写的时候
'A=Split(Ubound(S),"A") '不区分大小写的时候
For i=1 to ubound(A)
If Len(A(i))>0 Then
Print Val(A(i))
End If
Next

'上面的方法，是有几个，找几个，如果只想找一个，那也可以用Instr函数来找
'顺便说一下：angusdwhite - 经理 五级 做人太不厚道了，照抄我的代码，一个符号都不改，不过现在我发现有点问题，改了一下

Dim S As String,A
S="jdifeuA34dke334"
A=Split(S,"A") '区分大小写的时候
'A=Split(Ubound(S),"A") '不区分大小写的时候
For i=1 to ubound(A)
If Len(A(i))>0 Then
Print Left(A(i),1)
End If
Next

其实很简单
你要找的是34是吧
i = val(mid(s,instr("jdifeuA34dke334","A")+1))
你试试看i是不是等于34

'楼上用Val函数及从1开始循环,对这个字符串是正确的,
'但如果字符串第一个字母是A呢? ********找不到第一个．
'但如果A后的第一个字符是字母呢？*********val("b1") =0

Private Sub Command1_Click()
Dim S As String, S2 As String, A
S =