Как заменить переменные извлекая из текстового документа

Private Sub Command1_Click()
d = Val(Text1.Text)
c = 7.132 * d + 2.561
m = Val(Text2.Text)
Label1.Caption = ((c * 2 + 5) / (2 * m))
End Sub

Private Sub CommandSave_Click()
Dim F
F = FreeFile
Open ("File.txt") For Output As #F
Print #F, TextC.Text
Close #F
End Sub
 
Private Sub Form_Load()
Dim F
Dim S As String
F = FreeFile
Open ("File.txt") For Input As #F
Input #F, S
TextC.Text = S
Close #F
End Sub

Private Sub Form_Load()
    Dim c As Object
    Set c = CreateObject("scripting.dictionary")
    c.CompareMode = 1
    c("x") = 3
    c("y") = 2
    MsgBox c("x") + c("y")
    End
End Sub

d = Val(Text1.Text)
'c = 7.132 * d + 2.561
ScriptControl1.ExecuteStatement "d = " & d
c = ScriptControl1.Eval(Form2.TextC.Text)
m = Val(Text2.Text)
Label1.Caption = ((c * 2 + 5) / (2 * m))

Dim T As String
 
d = Val(Text1.Text)
T = txt3.Text
 
a = Val(T)
k = InStr(T, "+")
b = Val(Mid(T, k))
 
c = a * d + b

Private Sub Form_Load()
    Dim Script
    Set Script = CreateObject("MSScriptControl.ScriptControl"): Script.Language = "VBScript"
    Script.ExecuteStatement "a = 1"
    Script.ExecuteStatement "b = 2"
    Script.ExecuteStatement "c = 3"
    MsgBox Script.eval("a + b+ c")
    End
End Sub

Private Sub Form_Load()
    Dim Script
    Set Script = CreateObject("MSScriptControl.ScriptControl"): Script.Language = "VBScript"
    Script.ExecuteStatement "a = 1"
    Script.ExecuteStatement "b = 2"
    Script.ExecuteStatement "c = 3"
    MsgBox Script.eval("(a + b) * c")
    End
End Sub