子过程问题，很简单，帮忙。

[lovercat]

Public Function sprs(instr1 As String, out1 As String, out2 As String)
Dim llenstr As Integer

llenstr = InStr(instr1, ";")
out1 = Left(instr1, llenstr - 1)
out2 = Right(instr1, Len(instr1) - llenstr)

End Function

Private Sub Command1_Click()

sprs Label1.Caption, Text1.Text, Text2.Text

End Sub

为什么不执行？

[lovercat]

哦，把上边 function应该是sub

[张友邦]

llenstr = InStr(instr1, ";")有错
请看仔细一些

[asussony]

怎么会不执行呢？

[lovercat]

哦，把上边 function应该是sub

[YHeng]

instr(起始位置，准备查找的字符串，要查找的字符串）

[polarwyp]

对llenstr = InStr(instr1, ";")有错

[supercai]

Public Function sprs(instr1 As Variant) As Variant
Dim bb(1) As String
Dim llenstr As Integer

llenstr = InStr(instr1, ";")
bb(0) = Left(instr1, llenstr - 1)
bb(1) = Right(instr1, Len(instr1) - llenstr)
sprs = bb

End Function

Private Sub Command1_Click()

Text1 = sprs(Label1.Caption)(0)
Text2 = sprs(Label1.Caption)(1)

End Sub