InStr(str1, str2)
функция возвращает местоположение str2 в str1. Если не нашёл, то возвращает 0.

Replace("ва вавы 45 апва", "45", "")

Тогда циклом пробегай строку и ищи там >0 and <9. Как только цикл найдёт, то используешь Val(Mid("ва вавы 45 апва", [место где начинается номер])). Val тебе вернёт сам номер.

Ладно хоть не спросил что такое цикл :-)

Option Explicit

Private Sub Command1_Click()
Dim iIndex As Integer
Dim szString As String
Dim iNumber As Integer



szString = "ва вавы 45 апва"
Debug.Print szString

For iIndex = 1 To Len(szString)
If Mid(szString, iIndex, 1) > 0 And Mid(szString, iIndex, 1) <= 9 Then
iNumber = Val(Mid(szString, iIndex))
Exit For
End If
Next

szString = Replace(szString, iNumber, "")
Debug.Print szString
End Sub

'Like' может сказать, есть или нету цифр в строке. Но он не скажет где именно в строке находится цифра.