Visual Basic - Ayuda con código fácil

'Esto lo que hace es concaternar los datos dependiendo de los valores

t = es el texto qeu quieres formatear

l  = la longitud del texto o del campo

o = la orientacion si priomero va el campo  y luego el relleno (como nombre ) o primero el relleno y luego el campo (para valores)

C = es el caractere con el que rellenas

luego vas concatenando los resultados cualquier duda me avisas

 Sub formatea(t As String, l As Integer, o As String, c As String)

Dim f As String

For i = 1 To l - Len(t)

    f = f & c

Next i

If o = "i" Then

    s = t & f

Else

    s = f & t

End If

End Sub

'Esto lo que hace es concaternar los datos dependiendo de los valores

't = es el texto qeu quieres formatear

'l  = la longitud del texto o del campo

'o = la orientacion si priomero va el campo  y luego el relleno (como nombre ) o primero el relleno y luego el campo (para valores)

'C = es el caractere con el que rellenas

'luego vas concatenando los resultados cualquier duda me avisas

 Sub formatea(t As String, l As Integer, o As String, c As String)

Dim f As String

For i = 1 To l - Len(t)

    f = f & c

Next i

If o = "i" Then

    s = t & f

Else

    s = f & t

End If

End Sub

Dim campo01 = formatea ( novedad_cb,20,i," ")

dim campo as string

campo =  formatea (novedad_cb,20,i,"0")  ' de 20 digitos a la izq el relleno y de ceros como si fuera valor.

'Funcion Formatea

'Esto lo que hace es concaternar los datos con formato qeu desees  dependiendo de los valores

't = es el texto qeu quieres formatear

'l  = la longitud del texto o del campo

'o = la orientacion si priomero va el campo  y luego el relleno (como nombre ) o primero el relleno y luego el campo (para valores)

'C = es el caractere con el que rellenas

Public Function formatea(t As String, l As Integer, o As String, c As String)

Dim f As String

If Len(t) <= l Then

    For i = 1 To l - Len(t)

        f = f & c

    Next i

    If o = "i" Then

        formatea = t & f

    Else

        formatea = f & t

    End If

Else

  formatea = Mid(t, 1, l)

End If

End Function