La forma más rápida que sé de hacerlo es esta:

Option Explicit
 
Private Sub Form_Load()
Dim s$
    s = "Hola mundo"
    MsgBox LenB(s) \ 2
End Sub

La función LenB() te devuelve la longitud en Bytes de una cadena, después dividimos entre dos y ya está.
Los test que hice cuando programaba me dieron esta conclusión en cuanto a rapidez se refiere:

---

@BlackZeroX▓▓▒▒░░: Dios mío, había olvidado la dedicación que pones en tus explicaciones.

DoEvents!