Visual Basic.NET - como hacer que mi textbox que esta desclarado en integer no me marque 0 cuando esta vacio

Dim c, disponible As Integer

c = Convert.ToDouble(Tbcantidadpedido.Text)

disponible = Convert.ToDouble(TBcantidadisponibel.Text)

If ((Tbcantidadpedido.Text = "") Or (c = 0)) Then

    Tbcantidadpedido.Clear()

    Tbcantidadpedido.Focus()

    MsgBox("¡Error!... Debe Tener en cuenta que debe Ingresar una Cantidad", MsgBoxStyle.Critical, "Cantidad")

Else

    If disponible = 0 Then

        MsgBox("¡Atención!... No hay Producto Disponible Para Salida", MsgBoxStyle.Critical, "Cantidad")

        limpieza()

    Else

        If (Tbcantidadpedido.Text > TBcantidadisponibel.Text) Then

            MsgBox("¡Error!... Supera el limite del Producto disponible  ", MsgBoxStyle.Critical, "Cantidad")

            Tbcantidadpedido.Clear()

            Tbcantidadpedido.Focus()

        Else

            agregarfila()

            agregaradtgsalida()

            restadelproducto()

            SQLDAProducto.Update(DSsalida1.Producto)

            SQLDAProducto.Fill(DSsalida1.Producto)

            eventodelcomboproduc()

            limpieza()

            DTGWsalida.Enabled = True

            PBAceptar.Enabled = True

        End If

    End If

End If

If String.IsNullOrEmpty(txtcantidadnew.Text) Then ' para checar que el textbox no este vacio

    MsgBox("Deve Ingresar Una Cantidad")

    txtcantidadnew.Focus()

Function Validartextbox(byval xTexb as Textbox) as bool

    lret = False

    If xTexb.Text.Trim = "" or xTexb.Text.Trim = "0" then

       lret = True

    EndIf

    ValidarTextox = lret

End Function