Option Explicit
'Aleksey S Nemiro, 04.11.2007
'http://aleksey.nemiro.ru
'http://kbyte.ru

Dim myRegEx As New RegExp

Private Sub Command1_Click()
 myRegEx.MultiLine = True
 myRegEx.IgnoreCase = True
 myRegEx.Global = True
 myRegEx.Pattern = "(([\d]{1})([\-]{0,1})([\d]{3})([\-]{0,1})([\d]{2,3})([\-]{0,1})([\d]{2})([\-]{0,1})([\d]{2,3}))|(([\d]{2,3})([\-]{0,1})([\d]{2})([\-]{0,1})([\d]{2}))"
 List1.Clear
 Dim myMatches As MatchCollection
 Set myMatches = myRegEx.Execute(Text1)
 Dim i As Long
 For i = 0 To myMatches.Count - 1
  List1.AddItem myMatches(i).Value
 Next i
End Sub