Public Function fnOnlyNumeric( _
  strValue As String) As String
    Dim objRegExp As RegExp
    Dim objMatches As MatchCollection
    Dim objMatch As Match
    
    Set objRegExp = CreateObject("VBScript.RegExp")
    
    objRegExp.Global = True
    objRegExp.Pattern = "[0-9]{1,2}х[0-9]{1,2}"
    
    Set objMatches = objRegExp.Execute(strValue)
    Set objMatch = objMatches.Item( 0 )
    
    fnOnlyNumeric = objMatch.Value
    
    Set objRegExp = Nothing
End Function

?fnOnlyNumeric("Проволока 20х20")

' Подключаем библиотеку Microsoft VBScript
' Regular Expressions.

Public Function fnOnlyNumeric( _
  strValue As String) As String
    Dim objRegExp As RegExp
    Dim objMatches As MatchCollection
    Dim objMatch As Match
    
    ' Создаем объект RegExp.
    Set objRegExp = CreateObject("VBScript.RegExp")
    
    ' True - проверяем по всему тексту,
    ' False - до первого соответсвия.
    objRegExp.Global = True
    
    ' Строка, используемая как шаблон.
    ' Возвращаемые значения на основе этого шаблон могут быть:
    ' 20х20
    ' 1x40
    ' 20x3
    ' 4x5
    objRegExp.Pattern = "[0-9]{1,2}х[0-9]{1,2}"
    
    ' Поиск соответствующих шаблону вхождений в строке-оригинале.
    ' Возвращает коллекцию найденных подстрок в виде агрегатного объекта.
    Set objMatches = objRegExp.Execute(strValue)
    Set objMatch = objMatches.Item( 0 )
    
    ' Функция возвращает первое найденное соответсвие.
    ' В нашем примере - 20х20.
    fnOnlyNumeric = objMatch.Value
    
    Set objRegExp = Nothing
End Function