coding prob [resolved]

[azrina]

the code i enclose here have no errors but the output not appear..why?whts wrong with the code??

Private Sub btnKira_Click()
 
Dim X
Dim Y
Dim z
 
'ratio value
X = Val(txtHasil.Text) + Val(txtPulih.Text)
Y = X / Val(txtPeriksa.Text)
z = Format(Y, "0")
 
If txtKuantiti2.Text >= 2 And txtKuantiti2.Text <= 50 Then
    Select Case z
            Case z = 0
                    txtRatio.Text = "0"
                    txtAQL.Text = "2.5"
                    txtSpriksa.Text = "5"
                    txtLulus.Text = "0"
                    txtGagal.Text = "1"
            Case z = 1
                    txtRatio.Text = "1"
                    txtAQL.Text = "2.5"
                    txtSpriksa.Text = "5"
                    txtLulus.Text = "0"
                    txtGagal.Text = "1"
    End Select
End If
End Sub