vb 字符的问题

这个问题可以简化为，0处在什么位置？

解决：
Private Sub Command1_Click()
s = Replace(Text1, vbCrLf, "") '先把回车去掉，存到s里
Print InStr(s, "0") - 1 '找出0的位置并减去1，然后输出
End Sub

一楼正解。
还可以：
Private Sub Command1_Click()
s = Replace(Text1, vbCrLf, "") '先把回车去掉，存到s里
for i=1 to len(s)
if mid(s,i,1)="0" then
print i
exit for

next i
End Sub

1楼就是答案了