Need to keep from making two lines

Here is what i have:

Private Sub Command1_Click()
Shell ("c:\ip-test.bat")
Text1.Text = Clipboard.GetText
Text1.Text = Mid(Text1.Text, 40, 15)
Text3.Text = "forcebindip "
Text3.Text = Text3.Text + Text1.Text + " " + Text2.Text
i2 = FreeFile
Open "c:\panda1.bat" For Output As #i2
Print #i2, Text3.Text
Close #i2

End Sub

But when it writes the bat file it makes the text into two lines, and i need it to all be on one line.
How do i do this?