Run-time Eror 424 Object Required - VB

Private Sub Command1_Click()
Open "login.dat" For Output As #1
Print #1, Text1.Text
Close #1
     Process.Start ("""C:\Program Files\Java\jre7\bin\javaw.exe""" & " -cp " & """%appdata%/.minecraft/bin/minecraft.jar;%appdata%/.minecraft/bin/lwjgl.jar;%appdata%/.minecraft/bin/lwjgl_util.jar;%appdata%/.minecraft/bin/jinput.jar""" & " -Djava.library.path=" & "%appdata%/.minecraft/bin/natives" & """ -Xmx+Form2.Text1.Text+M -Xms+Form2.Text1.Text+M net.minecraft.client.Minecraft """ & "Text1.Text" & """")
 
     Application.Exit
End Sub
 
Private Sub Command2_Click()
Form2.Show
End Sub
 
Private Sub Form_Load()
 
Open "login.dat" For Input As #1
k = LOF(1)
Text1.Text = Input(k, #1)
Close #1
End Sub
 
Private Sub Text1_Change()
 
End Sub