谁能帮我用VB设计个小程序

“设A1=12,A2=14,A3=333,B1=9,B2=123,B3=331,C1=23,C2=55,C3=99,,,,,则当我输入'A1B2C3'时显示'12 123 99'
谢谢啦
你的那个不对啊

Dim S as String,A
S="A1=12,A2=14,A3=333,B1=9,B2=123,B3=331,C1=23,C2=55,C3=99"
A=Split(S,",")
St=Inputbox("请输入要取的值(如:A1B2C3)")
For i=1 to len(St) Step 2
C=Mid(i,St,2)
For i=0 to Ubound(A)
If Left(A(i),2)=C Then
T=T & Right(A(i),2) & " "
End If
Next
Next
Print Trim(T)

如果变量数固定的，那么你可以用0871love的方法，而变量死动态的，那么你只好使用一下方法了：

Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long

Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Private Sub Form_Load()
Dim vars As String, mvar As String
vars = "A1=2:A2=A1+3:A3=4:A4=5"
mvar = VBA.InputBox("请输入变量名称")