Private Sub Command1_Click()
Dim Str
Set re = CreateObject("VBScript.RegExp")
re.Global = True
re.IgnoreCase = True

Str = "吉林电视台1340公共频道"
re.Pattern = "\d{1,}"

Set Matches = re.Execute(Str)
For Each Match In Matches
   MsgBox Match.Value
Next

End Sub