How to write this code to change in vb stringbuilder?

<script type="text/javascript">
    function showhead(imagename, itm) {
        debugger;

        document.getElementById("headicon").className = imagename;

        document.getElementById("headContent").innerHTML = itm;
        var link = document.getElementById('accountSection');
        link.style.display = 'none'; //or
        //link.style.visibility = 'hidden';
    }


</script>

<a href="#" önclick="return showhead('imagename','subcategoryname');"></a>

Private Sub bindCategory()

    Dim dtCategory As DataTable
    Dim dtSubCategory As DataTable

    Dim strCategoryName As String
    Dim strCategoryImage As String
    Dim strCategoryId As Integer
    Dim strSubCategoryName As String
    Dim strSubCategoryId As Integer

    Dim sb = New StringBuilder

    dtCategory = GetCategory()
    For Each row As DataRow In dtCategory.Rows
        strCategoryName = row.Item("Category_Name").ToString
        strCategoryImage = row.Item("Category_ImageFilePath").ToString
        strCategoryId = row.Item("CategoryID")

        sb.Append("<li>")
        sb.Append("<div class="responsive-accordion-head"><img src=" + strCategoryImage + "></img>  <a önclick="return showhead(" fa="" fa-plus="" responsive-accordion-plus="" fa-fw="></i><i class=" fa-minus="" responsive-accordion-minus=""><div class="responsive-accordion-head">
        '        <span class="fa fa-automobile"></span>  <a önclick="return showhead('fa fa-automobile','section Three');">
        '            id="">section Three </a>^__i class="fa fa-minus responsive-accordion-minus fa-fw">
        '    </div>



        sb.Append("<div class="responsive-accordion-panel">")
        sb.Append("<div class="menu">")

        dtSubCategory = GetAllSubCategory(strCategoryId)

        For Each row1 As DataRow In dtSubCategory.Rows
            strSubCategoryName = "--" + row1.Item("SubCategory_Name").ToString
            'strSubCategoryId = row1.Item("CategoryID")
            strSubCategoryId = row1.Item("SubCategoryID")

            sb.Append("<ul>")
            'sb.Append("<li><a href="#" önclick="return showhead(">" + strSubCategoryName + "</a></li>")

            '<li><a href="#" önclick="return showhead('fa fa-automobile','Submenu1');">Submenu1</a></li>

            sb.Append("<li><a href="#" önclick="return showhead(" strcategoryimage="," strsubcategoryname=");">" + strSubCategoryName + "</a></li>")

            sb.Append("</ul>")
        Next
        sb.Append("</div>")
        sb.Append("</div>")
        sb.Append("</a></div></li>")
    Next
    ltrlCategory.Text = sb.ToString()


End Sub