Public Shared Function Proper(ByVal cString As String) As String 'Create the StringBuilder Dim sb As StringBuilder = New StringBuilder(cString) Dim i As Integer, j As Integer = 0 Dim nLength As Integer = cString.Length For i = 0 To nLength - 1 Step i + 1 If (i = 0) Or (Char.IsWhiteSpace(cString.Chars(i))) Then If i = 0 Then j = i Else j = i + 1 End If sb.Remove(j, 1) sb.Insert(j, Char.ToUpper(cString.Chars(j))) End If Next Return sb.ToString() End FunctionHTH