como desactivo los negativos en un textbox

[geraldin21]

este es el problema...

Codensa, desea contratar sus servicios para que elabore un programa en Visual Basic que le permita calcular el Total a Pagar de cada cliente, por concepto de energía eléctrica. Los datos que deben ser leídos son los siguientes: Número de cuenta, Estrato socioeconómico, tipo de servicio y cantidad de kilovatios consumidos. Los cálculos que debe realizar el programa en Visual Basic, son: Valor por consumo, que depende del estrato, así: Para estrato 1 ó 2, el valor del kWh es de $255. Para estrato 3 ó 4, el valor del kWh es de $325. Para estrato 5 ó 6, el valor es de $475. El cargo fijo es de $9850, igual para todos los clientes. La empresa otorga un subsidio dependiendo del uso que se le da a la energía (Tipo de servicio). Así, si el tipo de servicio es 1 (Residencial), se otorga un descuento del 30% al total consumo (valor por consumo + cargo fijo). Si el tipo de servicio es 2 (Comercial), el descuento es del 27% del total consumo. Si el tipo de servicio es 3 (Industrial), el descuento es del 18% del total consumo. Con base en esta información, el programa en Visual Basic debe mostrar el Total a Pagar por cada cliente.

y asi me quedo la programacion...

Public Class Form1

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
Label1.Text = 255
Label2.Text = 325
Label3.Text = 475
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, h, total1, total As Integer
h = TextBox2.Text
If CheckBox1.Checked Then
a = Label1.Text
End If
If CheckBox2.Checked Then
b = Label2.Text
End If
If CheckBox3.Checked Then
c = Label3.Text
End If
total1 = (a * h) + 9850 Or (b * h) + 9850 Or (c * h) + 9850
If RadioButton1.Checked Then
total = total1 - (total1 * 0.3)
MsgBox("cuenta" & TextBox1.Text & "A pagar_" & total)
End If
If RadioButton2.Checked Then
total = total1 - (total1 * 0.27)
MsgBox("cuenta" & TextBox1.Text & "A pagar_" & total)
End If
If RadioButton3.Checked Then
total = total1 - (total1 * 0.18)
MsgBox("cuenta" & TextBox1.Text & "A pagar_" & total)
End If
End Sub

solo quiero saber, como hago para q en el textbox2 no admita numeros negativos solo positivos... por fis alguien q me ayude!!