VB: cancel un dok bei msgbox auswerten

[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