Visual Basic - CODIGO LARGO CON IF

buenas el siguiente codigo debo repetir desde texto159 hasta el texto 180
como hago para aumentar ese valor consecutivamente y no escribir tantas veces el mismo procedimiento

MyCheck = IsNull(Forms!ROSTER!TEXTO159.Value)
If MyCheck = True Then
Exit Sub
Else
rs2.AddNew
rs2!MUNICIPIO = rs3!EQUIPOA
rs2!ATHETA = " & PP & "
rs2!AL = 0
rs2!AB = 0
rs2!BL = 0
rs2!BB = 0
rs2!CL = 0
rs2!CB = 0
rs2!CATEGORIA = Forms!CREAR!CC18
rs2!año = Forms!CREAR!Texto96
rs2!SEXO = rs3!SEXO
rs2!ETAPA = rs3!ETAPA
rs2!ZONA = rs3!ZONA
rs2!JUEGO = rs3!VALORA
rs2.Update
End If

espero te pueda servir, disculpa si tuve algun fallo en la captura no estoy en mi maquina,
saludos y felices lineas de programac10n.

buenas voy a ver si me puedo explicar mejor

en este codigo

Do While Not rs3.EOF

If rs3!EQUIPOA = Forms!ROSTER!Texto430.Value Then

MyCheck = IsNull(Forms!ROSTER!Texto158.Value)
If MyCheck = True Then

Exit Sub
Else
rs2.AddNew
rs2!MUNICIPIO = rs3!EQUIPOA
rs2!ATHETA = Forms!ROSTER!Texto158.Value
rs2!AL = 0
rs2!AB = 0
rs2!BL = 0
rs2!BB = 0
rs2!CL = 0
rs2!CB = 0
rs2!CATEGORIA = Forms!CREAR!CC18
rs2!año = Forms!CREAR!Texto96
rs2!SEXO = rs3!SEXO
rs2!ETAPA = rs3!ETAPA
rs2!ZONA = rs3!ZONA
rs2!JUEGO = rs3!VALORA
rs2.Update
End If


rs3.movetnext
End If


Loop


este codigo funciona perfecto pero si yo quiero hacer lo mismo con los valores

Forms!ROSTER!Texto159
Forms!ROSTER!Texto160
Forms!ROSTER!Texto161
Forms!ROSTER!Texto162
Forms!ROSTER!Texto163

tendria que escribir tantas veces el codigo para cada valor
hay forma de que este codigo se incremente
MyCheck = IsNull(Forms!ROSTER!Texto158.Value)

Hola tu planteamiento "sahid ra gutierrez cruz" esta bien, pero te falto colocar un nombre a la función, pero como no retorna ningún valor un procedimiento sub es mas que suficiente, quedaría mas o menos así:
Y luego para llamarlo sería:
O sino "OSWALDO SANCHEZ" haces un for recorriendo desde el nro 159 al 180 y te ahorrarías más líneas de código.