Binaryworld - ConvertCamelCase - Convert from a string in camel case ... [ VB -> String ]

' change a sentence in CamelCase to a sentence with spaces
' for example ConvertCamelCase("FileExchange") => "File Exchange"

Public Function ConvertCamelCase(ByVal Value As String) As String
  Dim i As Long

  For i = 1 To Len(Trim$(Value))
    ' If the character is uppercase, then insert a space before
    If Asc(Mid$(Value, i, 1)) = Asc(UCase$(Mid$(Value, i, _
      1))) And i <> 1 Then
      ConvertCamelCase = ConvertCamelCase & " " & Mid$(Value, i, 1)
    Else
      ConvertCamelCase = ConvertCamelCase & Mid$(Value, i, 1)
    End If
  Next i

End Function