Обьеденить 18 текстовых полей в одном - VB

Формулировка задачи:

Всем привет. Я в программировании новичек,поэтому стартовых знаний...эмм..проще говоря мне очень далеко до совершенства на языке VB. Держу сайт,и решил написать программу для облегчения своей работы. Цель: в созданной форме разместить все необходимые поля для работы (их 18),и результате при нажатии кнопки выводило 1 текстовое поле с обьедененными 18 полями в одном. Зачем так делаю: потому что в каждое поле будет подставлен свой код оформления,каким оно должно быть на сайте. Начал располагать все обьекты на форме,создал доп.форму,но не получается вывести в результате все 18 полей в одном...(выдает ошибку: Argument not optional) начальный код программы:

                    Листинг программы
                
 
                        
                          
                    
Dim N , G , M1 , M2 , M3 , S , K , A1 , A2 , A3 , DS , DM , DL , FS , FM , FL , HS , HM , HL , J As Variant
 
Private Sub Command1_Click()
Form2.Show
Me.Hide
[COLOR="Red"]Form2.text1.Text = "[color=red]The model:[b]" + text1 & "[/b][/color]" & "[c][img]" + text2 & "[/img]"[/COLOR]
End Sub
 
Private Sub Command2_Click()
Form3.Show
Me.Hide
End Sub
 
Private Sub R_Change()
R.Text = J
End Sub

Столько переменный потому,что сначала думал каждому текстовому полю обьявить свою букву и в конце просто вывести эти буквы. И еще один пункт: Хотел еще сделать так,что бы при получении результата была кнопка,для сразу через форму вб размещения сообщения на сайте. Много читал про WebBrawser в VB6 и понял,что для выполнения действий надо ответы искать в коде страницы,наверное это то что мне понадобится? Авторизация на сайте:

                    Листинг программы
                
<td width="100" align="right">E-mail:</td><td><input type="text" name="user" size="20" style="width:150px" maxlength="50"></td></tr><tr><td align="right">Пароль:</td><td><input type="password" name="password" style="width:150px;" maxlength="15" size="20"></td></tr>
<tr><td id="eMessage" align="right"></td><td>
<table border="0" cellpadding="0" cellspacing="0" onmousedown="this.className='downBtn'" onmouseover="this.className='overBtn'" onmouseout="this.className='outBtn'">
<tr>

Создание новой темы:

                    Листинг программы
                
<td class="switchActive" align="center">1</td></tr></table></td><td align="right" class="frmBtns"><div id="frmButns83"><a href="http://sexymod.ru/forum/2-0-0-1-1"><img alt="" style="margin:0;padding:0;border:0;" title="Новая тема" src="http://s44.ucoz.net/img/fr/bt/4/t_new.gif" /></a>

Отправка сообщения:

                    Листинг программы
                
<script type="text/javascript">function emoticon(code,nm){if (code != ""){var txtarea=document.getElementById(nm);code = ' ' + code + ' ';if (document.selection) {txtarea.focus();var txtContent = txtarea.value;var str = document.selection.createRange();if (str.text == ""){str.text = code;} else if (txtContent.indexOf(str.text) != -1){str.text = code + str.text;} else {txtarea.value = txtContent + code;}}else{txtarea.value = txtarea.value + code;}}}</script>

Всегда,всем приходится с чего нибудь начинать) поэтому простите,я не вундеркинд,что бы все схватывать на лету в интернете)

Решение задачи: «Обьеденить 18 текстовых полей в одном»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
separator = " " 'разделитель полей
Text2 = ""
For i = 0 To Text1.UBound
    Text2 = Text2 & separator & Text1(i)
Next
End Sub