Extracting Numbers from String

[KBeMe]

I have a User Form where the user enters information that populates a document using Private Sub cmdOK_Click(). From one of the Text Fields that the user inputs data I need to extract the numbers that are entered in the format of ##-#### stripping any other text that is entered and I then I want to be able to do a




ActiveDocument.Bookmarks("CaseNum1").Select
Selection.TypeText


to place the number minus any other characters into the document. All documentation I can find to do something like this is for Excel and does not work in Private Sub cmdOK_Click().