Visual Basic - Hacer un sub funcion publica

Como puedo hacer de estas dos subrutinas funciones publicas para insertar en un modulo y poder utiliar en todo la aplicacion.

\'salta a la sisguiente caja de TExto al llegar a un numero de caracteres
Private Sub Text1_Change()
if Len(Trim(Texi1.text))>Tex1.MaxLength then
Text2.Setfocus
End If
End Sub

\'cambia el color del texto del textbox poniendo en amarillo
If TextBox4 = \"\" Then
TextBox4.BackColor = &HFFFF&
Else
TextBox4.BackColor = &H80000005
End If

Esta seria la solucion:

Public Sub Saltar(TXT1 as Object,TXT2 as Object)
if Len(Trim(TXT.text))>TXT.MaxLength then
TXT2.Setfocus
End If
End Sub

Public Sub Color(TXT as Object)
If trim(TXT.text) = "" Then
TXT.BackColor = &HFFFF&
Else
TXT.BackColor = &H80000005
End If
End Sub

e insertado en el modulo las dos funciones que me dijieste y depues he puesto en un texbox cualquiera el siguiente código:
Private Sub TextBox1_Change()
TextBox1 = Saltar(TextBox1)

y me contesto ERROR DE COMPILACION EL ARGUMENTO NO ES OPTCIONAL., tambien he puesto en el mismo textbox el siguiente código:
Private Sub TextBox1_Change()
TextBox1 = Color(TextBox1)

y me contesto ERROR DE COMPILACION EL ARGUMENTO NO ES OPTCIONAL..

Con Call llamas a la rutina desde el modulo, y seguramente te salen esos errores porque no estabas pasando los parametros de forma correcta, si te fijas bien la rutina Saltar tiene dos parametros Txt1 y Txt2 alli es donde debes poner tus textbox respectivos, igual para el color.
Esta seria la manera correcta:

Private Sub TextBox1_Change()
Call Saltar(TextBox1,TextBox2)
Call Color(TextBox1)

bueno puede ser esta entonces, ya que tu dices que quieres utilizarlo en toda la aplicacion, al principio del modulo declara el text1.text como global es algo asi :

global text1 as object
global text2 as object

y asi lo que vas a utilizar, luego haces lo que te dijo fabian pero ya no nombras los text1 de nuevo osea asi:
Public Sub Saltar( )

espero haber sido de ayuda