Yo creo que primero tendrías que explicar qué hace el código en VB, ya que aunque sea básico no todos sabemos VB.

Saludos.

Dim d, da As String
For s = 1 To Len(Text1)

d = Mid(Text1, s, 1)
Bueno voy a explicar el codigo para q me puedan hace el favor

Mid= sirve para seleccionar un trozo de texto dentro de una cadena de texto
ej mid(string de el pedazo a sacar, donde empieza, donde termina)
N=mid(murcielago,6,4)
entonces N seria igual a  Lago

lo que hace el siguiente codigo es comprimir una cadena de texto EJ,

Hoooooola soyyy nafhtaaaa

Esto daria igual a:

H5la soy2 nafhta3


================== CODE ============================

da = Mid(Text1, s + 1, 1)

If d = da Then
    L = L + 1
Else
    cadena = L & d
    If L <> 0 Then
        Text2.Text = Text2 & cadena
    Else
        Text2 = Text2 & d
    End If
    L = 0
End If
Next

nadie me podria convertirlo???

Yo lo convertire pero me podrian decir los errores
gracias

#include<stdio.h>
main(){
   char cadena[30]
   int i;
   int l;
   for i=1;i< sizeof(cadena);i++{
      if(cadena==cadena[i+1]){
         l++
      Else
         cadena=l + d
         if(l!=0){cadena=cadena & d}
      }
   }
         
}