Countdown with vba

[asyamonique]

Good Day,
With below code when its running userform1 label1 caption shows false values.
Is there any way to fix that?
Thanks in advance.

Private Sub CommandButton1_Click()

a = UserForm2.TextBox1 = Value
b = UserForm2.TextBox2 = Value
c = UserForm2.TextBox3 = Value
d = UserForm2.TextBox4 = Value
e = UserForm2.TextBox5 = Value
f = UserForm2.TextBox6 = Value

n = a * 10 * 60 * 60 + b * 60 * 60 + c * 10 * 60 + d * 60 + e * 10 + f

Unload Me

UserForm1.Show

UserForm1.Label1.Caption = a & b & ":" & c & d & ":" & e & f
For i = 1 To n
Application.Wait (Now + #12:00:01 AM#)
DoEvents
UserForm1.Label1.Caption = Format(DateAdd("s", -1, UserForm.Label1.Caption), "hh:mm:ss")
UserForm1.Label3.Width = 858 - 858 * i / n

If UserForm1.Label1.Caption < #12:00:11 AM# Then
UserForm1.Label3.BackColor = vbRed
Beep

End If
Next i

End Sub

 

[NdNoviceHlp]

Hi asyamonique. You need to replace the "=" with a "." It will probably work as a ".Value" but it should probably be a text value using a string variable (ie. Dim a as String). All other similar code will also require amendments. HTH. Dave

Dim as Double
a = UserForm2.TextBox1.Value
'OR
'a= Userform2.Textbox1.Text
'etc.

UserForm1.Label1.Caption = a + b & ":" & c + d & ":" & e + f
'OR....
'UserForm1.Label1.Caption = a & b & ":" & c & d & ":" & e & f

 

[asyamonique]

Hello,
Thanks for your quick reply.
Unfortunately all ways hasn't worked.
It shows FALSE