Definir textbox de resultado sin decimales

Hola

Nuevamente con una interrogante, tengo un formulario en el que debo calcular un incremento que puede variar según el usuario y hacer el calculo once veces, es decir febrero, marzo, ..., diciembre, logre hacer que suceda para una celda con las siguientes instrucciones:

Private Sub TextBox600_Change()

'Textbox600 = operador variable
'textbox601 = resultado
'textbox613 = constante (puede variar)

TextBox601.Text = Val(TextBox600.Text) * Val(TextBox613.Text)

End Sub

Mis dudas son las siguientes:

1. Puedo hacer en un solo Private Sub que haga la operacion para cada textbox, es decir para cada mes, tomando en cuenta que el usuario podra iniciar en cualquiera de ellos (mayo pe), de ser así como debería hacerlo.

2. Como debo decirle al formulario que maneje solo números enteros, sin decimales y en formato moneda.

Agradecere tu pronta respuesta como siempre. Excelente semana.