Dim BookNameList As List
Dim BookNameFinal As String =""
Dim S as String
BookNameList =Regex.Split("_", book)
For i=0 to BookNameList.Size-1
S=BookNameList.Get(i)
BookNameFinal = BookNameFinal & S.Substring2(0,1).ToUppercase & S.SubString(1) & " "
Next
BookNameFinal=BookNameFinal.Trim
Dim BookNameList() As String = Regex.Split("_",book)
Dim BookNameFinal As String = ""
For Each Word As String In BookNameList
BookNameFinal = BookNameFinal & Word.Substring2(0,1).ToUppercase & W.SubString(1) & " "
Next
BookNameFinal=BookNameFinal.Trim