Option Explicit On
Imports System.IO
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Please add an IP")
End If
If TextBox3.Text = "" Then
MsgBox("Please add an Port")
End If
If TextBox2.Text = "" Then
MsgBox("Please add an Reload URL")
End If
If TextBox4.Text = "" Then
MsgBox("Please add DCR's")
End If
If TextBox5.Text = "" Then
MsgBox("Please add Variable's")
End If
If TextBox6.Text = "" Then
MsgBox("Please add an Text's")
End If
Me.Hide()
MsgBox("Thank you, loader is being created!")
Loader.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
End Sub
Private Sub cmdCreate_Click()
Dim intFile As Integer
Dim strFile As String
Dim strData As String
Loader.RichTextBox1.Text = vbNullString
intFile = FreeFile()
strFile = "C:\loader.txt"
Open strFile For Input As intFile
strData = Input(LOF(intFile), intFile)
Close(intFile)
strData = Replace(strData, "TEXTBOX1", TextBox1.Text)
strData = Replace(strData, "TEXTBOX2", TextBox2.Text)
strData = Replace(strData, "TEXTBOX3", TextBox3.Text)
strData = Replace(strData, "TEXTBOX4", TextBox4.Text)
strData = Replace(strData, "TEXTBOX5", TextBox5.Text)
strData = Replace(strData, "TEXTBOX6", TextBox6.Text)
Loader.RichTextBox1.Text = strData
End Sub
End Class