Sub Main

	Dim SurferApp As Object
	Set SurferApp = CreateObject("Surfer.Application")
	SurferApp.Visible = True

'Open the worksheet document
	Set Wks = SurferApp.Documents.Open("c:\temp\book1.txt")

'Specify the worksheet range
    Set WksRange = Wks.Columns(Col1:=1, Col2:=2)

'Replace "4" with the text "test"
	Set After = Wks.Range(1, "A", 1, "A")      'First cell

	WksRange.Replace(TargetStr:="4", ReplaceStr:="test", Current:=After, Scope:=wksFindScopeEntire, Method:=wksFindPhrase, ReplaceAll:=True)

End Sub