Penyimpanan URL Seperti Pada Blogger - Blogspot

Private Function BloggerTitle(Title As String) As String
    Dim strCaption() As String
    strCaption = Split(Title, " ")
    Dim i As Integer
    Dim o As String
    For i = 0 To UBound(strCaption)
        If Len(Trim$(o) & " " & strCaption(i)) < 40 Then
            o = Trim$(o) & " " & strCaption(i)
        Else
            Exit For
        End If
    Next
    BloggerTitle = LCase(Replace(Trim$(o), " ", "-"))
End Function