tienes que usar la funcion Val(),

Variable = val(txtVariable.text)

y no tiene caso que compruebes Variable y txtVariable dos veces. Salu2 

Lo puedes modificar para que se reestablesca

Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Dim acTime  As Long
 
Public Function getTimePassed() As String
Dim timeActual As Long
Dim lngHour As Long
Dim lngMinute As Long
Dim lngSeconds As Long
 
timeActual = GetTickCount - acTime
 
lngHour = Int(timeActual / 1000 / 60 / 60)
lngMinute = Int((timeActual / 1000 / 60)) - lngHour * 60
lngSeconds = Int((timeActual / 1000)) - lngMinute * 60 - lngHour * 3600
getTimePassed = Trim(Str(lngHour) & ":" & sGetWideTimeString(lngMinute) & ":" & sGetWideTimeString(lngSeconds)) & vbNullChar
End Function
 
Public Function sGetWideTimeString(ByVal btInputNumb As Byte) As String
Dim sTemp As String
sTemp = Trim(Str(btInputNumb))
If Len(sTemp) = 1 Then sTemp = "0" & sTemp
sGetWideTimeString = sTemp
End Function
 
Public Function Reset()
acTime = GetTickCount
End Function
 

En un formulario:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Form_Load()
MsgBox getTimePassed
Module1.Reset
MsgBox getTimePassed
Sleep 3000
MsgBox getTimePassed
Module1.Reset
MsgBox getTimePassed
End Sub
 

contestan un tema del 2010? 

Todos se basan en investigaciones ya hechas, pueden ser realidad o no la mayoría pura teoría, y hasta que no se demuestre algo 100% verdadero todo lo demás serán falacias 

Perfecto!  , gracias seba123neo   

Que tal, hace mucho vi una función que te devolvía el tiempo en el que el mouse o el teclado no habia sido utilizado, es decir sin actividad del usuario..., ahora que la busco no la encuentro pero se usaba una api, no recuerdo cual, alguien sabra algo parecido... creo que se podría hacer un hook y crear mi propio contador, pero es algo que con solo una api se puede, un saludo y gracias de antemano ! 

http://foro.elhacker.net/programacion_visual_basic/pausar_proyecto_en_sub_main-t321304.0.html;msg1588669#msg1588669 

Public Function DeleteString_TV1(ByVal sString As String, ByVal PosComienzo As Long, ByVal Longitud As Long)
DeleteString = Replace$(sString, Mid(sString, PosComienzo, Longitud), vbNullString)
End Function

Salu2

Lo hize especialmente con sub  , de todas formas es un ejemplo...

Algo rápido y eficaz 

Public Sub DeleteString(ByRef Str As String, ByRef Begin As String, ByRef EndS As String)
Dim P           As Long
Dim P2          As Long
 
        P = InStr(1, Str, Begin)
        P2 = InStr(P, Str, EndS)
 
        If (Not (CBool(P)) Or Not (CBool(P2))) Then
            Exit Sub
        End If
 
        Str = Mid(Str, 1, P - 1) & Mid(Str, P2 + Len(EndS), Len(Str))
 
End Sub
 

Uso:

Dim A As String
A = "Este es un 345 aaa 661 ejemplo"
MsgBox A
DeleteString A, "45", "66"
MsgBox A