Solved: GoTo in VBA

[Ethan]

Hello all,

I try the following but it does not work. [error = "object required"]
Can anyone tell me why?

[VBA]
If CheckBox1 = True And TextBox2.Value < texbox7.Value Then GoTo Option1

If CheckBox1 = True And TextBox2.Value > TextBox7.Value And TextBox2.Value < TextBox7.Value + TextBox8.Value Then GoTo Option2

If CheckBox1 = True And TextBox2.Value > TextBox7.Value + mytot3 + mytot2 Then GoTo Option3

Option1:
MsgBox ("Verlof")

Option2:
MsgBox ("Verlof & BW")

Option3:
MsgBox ("Verlof & BW & TVT")
[/VBA]

[Bob Phillips]

[VBA]If CheckBox1 = True And TextBox2.Value < texbox7.Value Then Goto Option1

If CheckBox1 = True And TextBox2.Value > TextBox7.Value And _
TextBox2.Value < (Val(TextBox7.Value) + Val(TextBox8.Value)) Then Goto Option2

If CheckBox1 = True And TextBox2.Value > (Val(TextBox7.Value) + mytot3 + mytot2) Then Goto Option3

Option1:
MsgBox ("Verlof")

Option2:
MsgBox ("Verlof & BW")

Option3:
MsgBox ("Verlof & BW & TVT") [/VBA]

[Ethan]

I am sorry, the error persists

[Tinbendr]

[error = "object required"]
Can anyone tell me why?

[vba]
If CheckBox1 = True And TextBox2.Value < texbox7.Value Then GoTo Option1[/vba]
Typo
[vba]If CheckBox1 = True And TextBox2.Value < TextBox7.Value Then GoTo Option1[/vba]

[Ethan]

what a fool I am
Thanks guys.

[Aussiebear]

Try using Option Explicit at the top of your code, as it will pick up these sorts of issues

[snb]

or

[VBA]
If CheckBox1 Then
if TextBox2.Value < TextBox7.Value Then
c01=""
ElseIf TextBox2.Value > TextBox7.Value And TextBox2.Value < TextBox7.Value + TextBox8.Value Then
c01= " & "BW"
ElseIf TextBox2.Value > TextBox7.Value + mytot3 + mytot2 Then
c01=" & BW & TVT"
End If
End If

MsgBox "Verlof" & c01
[/VBA]

[Ethan]

Thanks SNB!