Visual Basic 6 - Alternativa a MID o MID$

Como la mayoría de nosotros sabemos la función mid de visual basic se encarga de cortar una frase desde "x" posición hasta "y" longitud, la función que les dejo aquí es una práctica que hace lo mismo que mid en visual basic:

 

Código:

'Funcion Lmid by linkgl
'funcion-linkgl.blogspot.com
'indetectables team
Function lmid(szCadena As String, dwInicio As Long, dwFin As Long) As String
Dim i As Integer
Dim B() As Byte
B = szCadena
For i = (dwInicio - 1) * 2 To (dwInicio + dwFin - 2) * 2 Step 2
  lmid = lmid + ChrW$(B(i))
Next i
End Function
'uso
Private Sub Form_Load()
datos = lmid("holasoylink", 2, 3)
MsgBox datos
End Sub

Espero les ayude en algo si tienen dudas sobre qué hace el código exactamente no duden en preguntar.