Replace Function help

[viruzman]

hi there i have a VBA macro, and i would need somethign that could search and replace with wildcards.



the code below is what i am using, the string a =ReplaceWord("a", "STR=""5689139532659432", will always be slightly diffrent so i need a way to search like
STR="*" OR STR="????????????????".

i have also tried a function caleld replaceword() but when i open the text file afterwards everything is gone exept for that staring


Dim a As String
Open userform1.TextBox1.Text For Binary As #1
a = Input(LOF(1), 1)
Close #1
a = ReplaceWord("a", "STR=""5689139532659432", "STR=""44442955623468956")
Open userform1.TextBox2.Text For Output As #1
Print #1, a;
Close #1
MsgBox "The File Was Successfully Searched", vbOKOnly
Unload Me