''' Dim s1 As String = “2015-01-01至2015-12-31、浦沅机械厂、焊接车间、焊工、锰尘、口罩;2016-01-01至2016-12-31、三一重工、焊接车 间、焊工、锰尘、口罩;2017-01-01至2017-12-31、塘桥机械厂、唐工车间、钳工、噪声、耳塞;” Dim pps() As String = s1.Split(";")
For Each pp As String In pps Dim pos() As String = pp.Split("、") If pos.length >= 2 Then msgbox(pos(0)) msgbox(pos(1)) End If Next