prova con una cosa del genere


sub Page_Load
dim str as string = "nome COGNOME"
dim arr as string() = str.Trim.Split( " " )
dim outStr as string
for i as integer = 0 to UBound( arr )
outStr += arr( i ).Substring( 0,1 ).ToUpper() & arr( i ).Substring( 1,Len( arr( i ) ) - 1 ).ToLower() & " "
next
response.Write( outStr.Trim )
end sub