I've noticed that you want any letters already in UPPERcase to stay in Upper case. I can't think of anyway to do that unless you examine the string char by char. E.g.
Dim sInput As String = "tesT strinG"
Dim sProperCase = System.Threading.Thread.CurrentThread.CurrentCulture.TextInfo.ToTitleCase(sInput)
Dim sOutput As String = ""
For i As Integer = 0 To sInput.Length - 1
If Char.IsUpper(sInput.Substring(i, 1)) Then
sOutput += sInput.Substring(i, 1)
Else
sOutput += sProperCase.Substring(i, 1)
End If
Next
Output ...
TesT StrinG