สอบถามเรื่องการซ่อน textbox ครับ ผมใช้โค๊ดผิดหรือป่าวครับ มันไม่ยอมซ่อน

Sub getdisc1()

 final_reply.Text = chkNull(myDataset.Tables("tblCarMstr").Rows(0).Item("fin_date"))
        If final_reply.Text = "0" Then
            final_reply.Visible = True
        End If

Dim fin_date As String
        final_reply.Text = chkNull(myDataset.Tables("tblCarMstr").Rows(0).Item("fin_date"))
        If fin_date > 0 Then  ///  If fin_date = "0" Then
            final_reply.Visible = True
            final_reply.Text = fin_date.ToString
        End If

end sub