Visual Basic - Urgente ayuda

Tengo 2 dudas la primera es para que sume l valor de dos textos, como devo hacerlo? text1=text2+text3 no sale.
La segunda es como puedo hacer k en esta función cuando borre todo no divida por 0:
Private Sub Text1_KeyPress(KeyAscii As Integer)
text2= text1 / 166
End Sub
cuando text1 lo borro todo me da error

Text1 = Val(Text2) + Val(text3)

Segundo
Valida si el text esta vacio con un "if text = vbnullstring" o capturas el error.

Atte.
Eduardo