' convert a string to camel case' for example: CamelCase("new file name") => "NewFileName"'Function CamelCase(ByVal Text As String) As String Dim i As Long ' convert all non-alphanumeric chars to spaces For i = Len(Text) To 1 Step -1 If InStr(1, "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789", Mid$(Text, i, 1), _ vbTextCompare) = 0 Then Mid$(Text, i, 1) = " " End If Next ' convert the string to proper case, and filter out all spaces CamelCase = Replace(StrConv(Text, vbProperCase), " ", "") End Function


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many