[neo21]

Решение:

Код:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim X
        X = Convert.ToSingle(TextBox1.Text)

        Dim fso, inputFile, outputFile
        Dim str As String

        fso = CreateObject("Scripting.FileSystemObject")
    
        inputFile = fso.OpenTextFile("c:\test.vbs", 1)

        str = inputFile.ReadAll
       
        str = Replace(str, "whatToReplace", X)

        outputFile = fso.CreateTextFile("c:\test.vbs", True)

        outputFile.Write(str)


    End Sub
End Class