[DmitriiV]

Использовать для поиска регулярные выражения. Убейте - не понимаю »

Пример:

Код:

myString = "max = 101" & vbNewLine & "max = 102" & vbNewLine & "max = 103"
strTemp = Trim(InputBox("Число:"))
If Len(strTemp) > 0 Then
	If IsNumeric(strTemp) Then
		Set objRegExp = CreateObject("VBScript.RegExp")
		objRegExp.Global = True
		objRegExp.IgnoreCase = True
		objRegExp.Pattern = "max = \d+"
		MsgBox objRegExp.Replace(myString, "max = " & strTemp)
		Set objRegExp = Nothing
	Else
		MsgBox "Неверное значение."
	End If
End If