Private Function Existe(ByVal file As String) As Boolean
On Local Error Resume Next
Existe = Len(Dir$(file))
End Function

if existe("c:\archivo.bmp") then ' si el archivo existe...
lo que sea
end if

if not existe("c:\archivo.bmp") then ' si el archivo no existe...
lo que sea
end if

Private Sub Form_Load()
Me.Show
Vmil1 = 0
Vcen1 = 0
Vdec1 = 0
Vseg1 = 0
Vmin1 = 0
End Sub

Static seg
Static cent
Static mil

mil = mil + 1
If mil = 9 Then
mil = 0
cent = cent + 1
End If

If cent = 9 Then
cent = 0
seg = seg + 1
End If

Label1 = seg & " - " & cent & " - " & mil