将包含特殊字符的数字串提取出来，并按照列显示

字符串：‘vlan 511 619 to 621 662 1401 1403 to 1418 1499 to 1502 1510 to 1513 1515 to 1516 1600 1602’，提取空格后的数字，并在新的一列逐个顺序往下派。
要求：
1、vlan之后的数字单独列在单元格中（每个数字一行）
2、碰见‘to’的，需要将之间的数据也增加列出，如，12 to 15，是指12、13、14、15
呈现结果：
vlan
511
619
620
621
.。。。。
请高手帮帮忙，谢谢。

自己定义了个宏，但是报错，
Sub test()
'
' test Macro
'
Dim sum1 As Integer, i As Integer, j As Integer, sta As Integer, end1 As Integer
'Cells(1, 2) = InStr(1, Cells(1, 1), " ")
sta = 1
sum1 = start1 + 1
Cells(3, 1) = sum1

end1 = InStr(sum1, Cells(1, 1), " ")
Cells(1, 3) = Mid(Cells(1, 1), 1, end1 - sta)
Cells(2, 2) = end1


j = Len(Cells(1, 1))
For i = 2 To 100
sta = end1
Cells(i, 5) = sta
end1 = InStr(sta + 1, Cells(1, 1), " ")
Cells(i, 4) = end1

'sum1 = sta + 1
'end1 = InStr(sum1, Cells(1, 1), " ")
Cells(i, 3) = Mid(Cells(1, 1), sta + 1, end1 - sta)

'i = i + 1
if sta > j

then  Cells(i, 3) = Mid(Cells(1, 1), sta + 1, j - sta)
End If
Next i




'    star1 = InStr(1, Cells(1, 1), " ")
'   sum1 = start1 + 1
'   end1 = InStr(sum1, Cells(1, 1), " ")
  '  Cells(i, 2) = Mid(Cells(1, 1), i, Cells() - Cells())*/


'
End Sub

提示‘编译错误 ，语法错误’

s = "vlan 511 619 to 621 662 1401 1403 to 1418 1499 to 1502 1510 to 1513 1515 to 1516 1600 1602"
a = Split(s)
Dim b(1 To 1000, 1 To 1)
For i = 1 To UBound(a)
  If a(i) = "to" Then
    For j = a(i - 1) + 1 To a(i + 1)
      n = n + 1
      b(n, 1) = j
    Next
    i = i + 1
    Else
    n = n + 1
    b(n, 1) = a(i)
  End If
Next
[a1].Resize(n) = b

谢谢，我试试看。

简单些：
s = "vlan 511 619 to 621 662 1401 1403 to 1418 1499 to 1502 1510 to 1513 1515 to 1516 1600 1602"
For Each c In Range(Mid(Replace(Replace(Mid(s, 5), " to ", ":A"), " ", ",A"), 2)).Rows
i = i + 1
Cells(i, 1) = c.Row
Next

如果我的是多个行的数据呢？每行都是这样的格式，如何来实现呢？