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