Los val eliminan la coma, en su lugar usa CDbl() que trabaja con Doubles
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: BahiereTTi en 12 Julio 2011, 21:51 PMAhi lo arruinaste
Espero que me den los codes :$
Cita de: madpitbull_99 en 12 Julio 2011, 20:36 PM
Si usaras más de tres palabras tal vez entendería lo que me quieres decir.
Option Explicit
' Agregar un TextBox y un CommandButton :P
Const sPrev As String = "<!-- "
Const sPost As String = " -->"
Private Sub Command1_Click()
Dim iStart As Integer, iLen As Integer
With Text1
iStart = .SelStart
iLen = .SelLength + Len(sPost) + Len(sPrev)
.SelText = sPrev & .SelText & sPost
.SelStart = iStart
.SelLength = iLen
.SetFocus
End With
End Sub