这个问题大概要多少红包

a = Array("367188", "252821", "468701")
b = Array("甲公司", "乙公司", "丙公司")
i = inputbox("请输入公司名称")
k = -1
For j = 0 To Ubound(b)
If i = b(j) Then
k = j
Break
End If
Next
If k > -1 Then
MsgBox a(k)
End If

你的i只是字符