Private Sub MakeHeader()
Vertices = (txtFaces.Text * 4) 'Do Mathmatics
Triangle = (txtFaces.Text * 2) 'Do Mathmatics
UVValues = (Triangle * 3) 'Do Mathmatics
Verticeshex = "0x" & String(8 - Len(Hex(Number)), "0") & Hex(Vertices)
Trianglehex = "0x" & String(8 - Len(Hex(Number)), "0") & Hex(Triangle)
UVValueshex = "0x" & String(8 - Len(Hex(Number)), "0") & Hex(UVValues)
txtOutput.Text = "word " & Verticeshex & " ;num vertices"
txtOutput.Text = txtOutput.Text & vbCrLf + "word " & Verticeshex & " ;num normals"
txtOutput.Text = txtOutput.Text & vbCrLf + "word " & UVValueshex & " ;num UVs"
txtOutput.Text = txtOutput.Text & vbCrLf + "word 0x00000000 ;num vertex colors"
txtOutput.Text = txtOutput.Text & vbCrLf + "word " & Trianglehex & " ;num triangles"
txtOutput.Text = txtOutput.Text & vbCrLf + "word 0x00000000 ;num BSP Nodes"
txtOutput.Text = txtOutput.Text & vbCrLf + "word 0x00000000 ;num animation sequences"
txtOutput.Text = txtOutput.Text & vbCrLf
End Sub