在VB中，如何取指定字符前的数值

如题。
如有A B两列，我想在B列中取A列中第一个&字符前的数值，即第一行是5，第二行是18，第三行是612，请大侠赐教
A B
5&9&14&20&77
18&29&58&69&90
612&627&636

如果是EXCEL处理BA表的话个人觉得用“&”分列后取第一列更简单。

  Private Sub CommandButton1_Click()
Dim cnt
Dim p1
For i = 2 To 5000
If Sheets("system").Cells(i, 3) = "" Then Exit For
If Sheets("system").Cells(i, 3) <> "" Then
 p1 = Sheets("system").Cells(i, 3)
Sheets("system").Cells(i, 4).Select
 ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],FIND(""&"",RC[-1],1)-1)"
 cnt = cnt + 1
 End If
 Next i
End Sub
system是表的名字