Find a vb code

The following code allows any number of text boxes to assign values, not necessarily called text? , the text box can be named at will:

Private Sub-Form _Load ()

Dim t means control, n means string, and s means string.

Open app.path & amp" \config.txt "as # 1 input.

Not EOF( 1)

Line input # 1, s

n = LCase(Trim(Left(s，InStr( 1，s，" = "- 1)))

For every test of mine. control

If LCase(t.Name) = n and the type of t is TextBox, then t.Text = Right(s, Len(s)-InStr( 1, s, "=").

then

line

Close # 1

End joint