Private Sub Button1_Click
Dim mRoot As List = Array As String("1A", "2B", "3C", "4D", "5E")
Dim sb As StringBuilder
sb.Initialize
For Each colroot As String In mRoot
sb.Append(CreateListHtml(colroot))
Next
WebView1.LoadHtml(sb.ToString)
End Sub
Public Sub CreateListHtml (v As String) As String
Dim Data As String = $"${v.SubString2(0, 1).ToUpperCase} (${v.SubString2(1, v.Length)})"$
Return $"<li class="nav-item"><a class="nav-link" href="#"${Data} data-toggle="tab" class="text-center">${Data}</a></li>"$
End Sub