comenta un poco que hace

un consejo, usa with hace mas legible el codigo

with lbljugador(lbljugador.ubound)
    .visible=true
    .caption="Nombre A"
    .
    .etc
end with
 

hola aca esta mi funcion

Private Function IsNumeric_TGa(str As String) As Boolean
    Dim sAux As String
    Dim lPos As Long, lCont As Long, lAsc As Long
    lPos = 1
 
    Do While lPos <= Len(str)
        IsNumeric_TGa = True
        sAux = Mid$(str, lPos, 1)
        lAsc = Asc(sAux)
        If (lAsc >= 48 And lAsc <= 57) Or (lAsc >= 43 And lAsc <= 46) Then
            If lAsc = 44 Then
                lCont = lCont + 1
                If lCont > 1 Then
                    IsNumeric_TGa = False
                    Exit Function
                End If
            End If
        Else
            IsNumeric_TGa = False
            Exit Function
        End If
        lPos = lPos + 1
    Loop
End Function
 

Modificado: Espero que ahora funcione

con el scrollbar vertical cuando llega al final del textbox cambia de linea

en las propiedades del textbox busca scrollbars y pone la opcion vertical

si no lees no aprenderas nunca, nadie te va a dar el codigo hecho y no por postear 3 veces lo del intervalo te van a responder mas rapido

en este foro se postean codigos de fuente, sino el programa tendria que ir a la sección de software

amigo yo que tu no dejaria el usuario y password para que lo lea todo el mundo

:S jaja bueno pero hasta ahi hice codigo creo que ahora le toca a el seguir