Mensajes

.
El ASC 10 = Saldo de linea. = vbCr
El ASC 13 = Retorno de carro.

Visual Basic lo toma igual o estara mal algo..

Código (vb) [Seleccionar] Expandir

MsgBox Asc(vbCr) ' => 13
MsgBox Asc(vbNewLine) ' => 13

@raul338: tengo unas dudas con tu code
"vbNewLine" y "vbCr" no es lo mismo... ?
y en esta parte del bucle

Código (vb) [Seleccionar] Expandir

While InStr(str, "..")
str = Replace$(str, "..", vbNullString)
Wend

solamente ocurrira una vez, ya que reemplaze todos los ".." no volvera a haber mas, es decir no es necesario el bucle, bueno eso pienso o me equivoco, un saludo !.

Incluiste la modificacion?

Sí, tiene un espacio hasta lo ultimo, IsNumeric lo toma como numero y tu función no.

Tenient101: Fixed

Código [Seleccionar] Expandir

Dim A As String
A = "1..2..3 "
MsgBox IsNumeric(A)  ' = Verdadero
MsgBox IsNumeric_r338v2(A) ' = Falso


Observaciones

Código [Seleccionar] Expandir

'LeandroA falla en "1. .2..3 "
'r338v2 falla en "1..2..3 "
'TGa falla en "1..2..3 "
'Alx falla en "1..2..3 "
'Black falla en "1. .2..3"

Salu2

Actualización

Código (vb) [Seleccionar] Expandir

Public Function Is_NumberT(ByRef Str As String) As Boolean
On Error GoTo err
       Str = Str + 0
       Is_NumberT = True
       Exit Function
err:
End Function

HOLA!!!

No crei que a nadie se le ocurriera eso XD mi forma es Casi igual, justo estaba hablando con Raul338 y me dijo que era Magia Negra eso XD Pero me gusta asi...

En fin... Mi codigo:

Código (vb) [Seleccionar] Expandir

Private Function IsNumeric_7913(str As String) As Boolean
Dim x As Double
On Error GoTo Nonum
    x = str
    IsNumeric_7913 = True
Nonum:
End Function

GRACIAS POR LEER!!!

, y se me habia ocurrido sumarle 0, pero no se me ocurrio que al sumarle "0" es como si no hubiera pasado nada matematicamente y lo pudiera eliminar dejandolo igual que tu code 

habria que testear la velocidad... un saludo!.

Código (vb) [Seleccionar] Expandir

Public Function Is_NumberT(ByRef Str As String) As Boolean
On Error GoTo err
        Str = Str + 0
        Is_NumberT = True
        Exit Function
err:
End Function



Salu2  

Código (vb) [Seleccionar] Expandir

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
    If MsgBox("¿Esta seguro que desea salir?", vbQuestion + vbYesNo, Form1.Caption) = vbYes Then End
End If
End Sub

La verdad que si, puedes hacer muuuchas cosas que no sean malware y aprender de ellas, aunque tambien del malware se aprende 

@ $Edu$. Me recuerda a alguien que queria hacer un gato con sockets