Option Explicit
Private Const l = 1
Private Const h = 9
Dim endl

Sub convert(ShowTechs As Boolean, result As Integer)
    Dim strbuffer As String, strbuffer2 As String, strbuffer3 As String, strbuffer4 As String
    Dim cnt As Integer, c As Integer, cnt2 As Integer, cnt3 As Integer
    Dim x As Integer, tmp As Integer
    'atacker
    'name and printing
    strbuffer = "[QUOTE][SIZE=11][color=#" & Hex(l + 2) & "f" & Hex(h + 2) & "f" & Hex(l + 2) & "f" & "]ATTACKER[/color][/SIZE] [SIZE=15][B][color=#" & Hex(l) & "f" & Hex(h) & "f" & Hex(l) & "f" & "]" & Format(Left(txt_a_name.Text, 1), "<") & "[SIZE=11]" & Format(Right(txt_a_name.Text, Len(txt_a_name.Text) - 1), ">") & "[/SIZE][/color][/B][/SIZE]"
    txtoutput.Text = strbuffer & endl
    'techs
    strbuffer = "[COLOR=#" & Hex(l + 4) & "f" & Hex(h - 2) & "f" & Hex(l + 4) & "f" & "][SIZE=11]weapons:[B]+" & txt_a_w & "0%[/B] | shields:[B]+" & txt_a_s & "0%[/B] | hull plating:[B]+" & txt_a_a & "0%[/B][/size][/COLOR]"
    If ShowTechs = True Then
        txtoutput.Text = txtoutput.Text & strbuffer & endl
    End If
    'fleets
    c = 0
    cnt2 = 0
    strbuffer3 = ""
    strbuffer2 = "[SIZE=11][COLOR=#0a101d][B]"
    For cnt = 0 To 11
        If Not (txt_a(cnt) = "0" Or txt_a(cnt) = "") Then
            strbuffer2 = strbuffer2 & "[color=#" & Hex(l + c) & "f" & Hex(h + c) & "f" & Hex(l + c) & "f]" & lbl_a(cnt) & "[/color] :: "
            Select Case (cnt)
                Case 0: x = 12
                Case 1: x = 12
                Case 2: x = 12
                Case 3: x = 13
                Case 4: x = 7
                Case 5: x = 10
                Case 7: x = 9
                Case 8: x = 11
                Case 9: x = 8
                Case 10: x = 10
                Case 11: x = 10
            End Select
            cnt2 = cnt2 + x
            tmp = (x - 2) - Len(txt_a(cnt)) 'Len(Format(txt_a(cnt), "#,##0"))
            For cnt3 = 0 To tmp
                strbuffer3 = strbuffer3 + "."
            Next cnt3
            strbuffer3 = strbuffer3 & "[color=#" & Hex(l + c) & "f" & Hex(h + c) & "f" & Hex(l + c) & "f]" & Format(txt_a(cnt), "#,##0") & "[/color]"
            For cnt3 = 0 To tmp + 3
                strbuffer3 = strbuffer3 + "."
            Next cnt3
            c = c + 1
        End If
    Next cnt
    strbuffer = "[COLOR=#" & Hex(l + 4) & "f" & Hex(h - 2) & "f" & Hex(l + 4) & "f]"
    strbuffer4 = strbuffer
    For c = 0 To cnt2 - 3
        strbuffer = strbuffer & "_"
        strbuffer4 = strbuffer4 & Chr(175)
    Next c
    strbuffer2 = strbuffer2
    strbuffer = strbuffer & "[/COLOR]"
    strbuffer4 = strbuffer4 & "[/COLOR]"
    ''''''''''
    txtoutput.Text = txtoutput.Text & strbuffer & endl
    txtoutput.Text = txtoutput.Text & strbuffer2 & endl
    txtoutput.Text = txtoutput.Text & strbuffer3 & endl
    txtoutput.Text = txtoutput.Text & strbuffer4 & "[/B][/SIZE][/COLOR]" & endl
End Sub

Private Sub cmdconvert_Click()
    Call convert(chktechs.Value, 2)
End Sub

Private Sub Form_Load()
    endl = Chr(10)
End Sub