Private Function Contar_Lineas_A_Lo_Loco(Texto As TextBox)
    'HAGO UN FOR QUE RECORRA TODOS LOS CARACTERES DEL TEXTO
    For I = 0 To Len(Texto.Text)
        'SI EL CARACTER LEIDO ES UN SALTO DE LINEA CON RETORNO DE CARRO, CUENTO UNA LINEA.
        If Mid(Texto.Text, I, 1) = vbCrLf Then
            Contar_Lineas = Contar_Lineas + 1
        End If
    Next
End Function
 

Private Function Contar_Lineas_A_Lo_Loco(Texto As TextBox)
    Contar_Lineas =  1
    'HAGO UN FOR QUE RECORRA TODOS LOS CARACTERES DEL TEXTO
    For I = 1 To Len(Texto.Text)
        'SI EL CARACTER LEIDO ES UN SALTO DE LINEA CON RETORNO DE CARRO, CUENTO UNA LINEA.
        If Mid(Texto.Text, I, 2) = vbCrLf Then
            Contar_Lineas = Contar_Lineas + 1
        End If
    Next
End Function
 

texto.text = left( texto.text,  len(texto.text)-2 )

  Dim ValueData As String
    Dim hKey As Long
    If RegOpenKey(HKEY_CURRENT_USER, "kk", hKey) = ERROR_SUCCESS Then
        Dim lngData As Long     'un valor Long es un número de 4 bytes CON signo
        If RegQueryValueEx(hKey, "Nuevo", ByVal 0, ByVal 0, lngData, 4) = ERROR_SUCCESS Then
            If lngData < 0 Then 'Si el long es negativo se pasa a DWORD (por ejemplo asi)
                ValueData = "0x" & Right$("00000000" & Hex$(lngData), 8) & " (" & (2 * 2147483648#) + lngData & ")"
            Else
                ValueData = "0x" & Right$("00000000" & Hex$(lngData), 8) & " (" & lngData & ")"
            End If
        End If
        RegCloseKey hKey
    End If