主题：从列表项目中分离字符，split如何应用？

Dim Multi As String = "ab|cd|ef"
Dim Values() as String
Values = Multi.split("|")
For Index As Integer = 0 To Values.Length - 1
    Output.Show(Values(Index))
Next

但实际应用中需要能直接提取，像易表那样：split("ab|cd|ef","|",3)；

或者是简单一些。

如果是在窗口列表项目选择某一条后如何分离？

此主题相关图片如下：未命名2.jpg

如选择第一条后，分离出后面的数字样字串符：765

我需要的结果并不是简单的分离出来，而是要嵌套到下面的代码中：

If e.form.Controls("ComboBox1").Value Is Nothing Then
    MsgBox("请选择患者住院号!",64,"提示")
ElseIf   e.form.Controls("DateTimePicker1").Value Is Nothing Then
    Dim r As Row = CurrentTable.AddNew
    r("住院号") =Forms("长期医嘱").Controls("ComboBox1").value
    r("开嘱日期") =Date.Today
    r("医生") =Forms("长期医嘱").Controls("ComboBox5").value
Else
    Dim r As Row = CurrentTable.AddNew
    r("住院号") =Forms("长期医嘱").Controls("ComboBox1").value
    r("开嘱日期") =Forms("长期医嘱").Controls("DateTimePicker1").value
    r("医生") =Forms("长期医嘱").Controls("ComboBox5").value
End If

将 r("住院号") =Forms("长期医嘱").Controls("ComboBox1").value中的“Forms("长期医嘱").Controls("ComboBox1")”分离