VB: cancel un dok bei msgbox auswerten

[Jaguar]

Original geschrieben von potassium
Ich hab jetzt das Folgende stehen:
....
If strX <> "" And IsNumeric(strX) Then
x = Int(strX)
Else
MsgBox "Text.", (vbYesNo + vbCritical + vbDefaultButton2)
End If
z1 = MsgBox(Style)
If z1 = vbYes Then
GoTo 8
ElseIf z1 = vbNo Then
End
End If
...
aber der ignoriert das ab z1 = ...
und mach statt dessen nur eine msgbox ein lehre mit Ok button hin
was is da falsch

is logisch weil du in der einen zeile mit dem z1=MsgBox(Style) eine neue Messagebox mit dem Wert der Variablen Style erstellst. Style hat aber nirgends wo nen wert bei dir, noch hast du in der Zeile irgendwelche Parameter für die Buttons übergeben. Wenn ich deinen Code mal richtig interpretiere willst du eher das machen

z1 = MsgBox ("Text.", vbYesNo + vbCritical + vbDefaultButton2)