[VB6] Passaggio di argomenti ad una TextBox

[the programmer]

If Not Command = "" Then
Dim linea2
Text1.Text = ""
Open Command$ For Input As #3
Do
Input #3, linea2
Text1.Text = Text1.Text + linea2 + vbNewLine
Loop Until EOF(3) = True
End If