llenar textboxes desde módulo.... ¿cómo?

[AlterElt]

Resulta que ahora como tengo el form inicial muy cargado de procdimientos y demás, lo que he hecho es crear un módulo y meter ahí parte de los procedimientos y tal... bueno, pues resulta que tengo esto:

share.vb:

Código vb:

Public Sub LlenarCajasDeTexto()
        '%%%%%%%%%%%%%%%%%%%%%
        'Relleno los textBoxes
        'llenamos los textboxes con los valores de la tabla de datos que tendrá el mismo orden que el listbox
        '%%%%%%%%%%%%%%%%%%%%%
 
        'Paso a variables la fila seleccionada
        Dim nombre As String = Convert.ToString(TablaDeDatos.Rows(lbElementoSeleccionadoGlobal).Item("nombre"))
        Dim apellido1 As String = Convert.ToString(TablaDeDatos.Rows(lbElementoSeleccionadoGlobal).Item("apellido1"))
        Dim apellido2 As String = Convert.ToString(TablaDeDatos.Rows(lbElementoSeleccionadoGlobal).Item("apellido2"))
        Dim sexo As String = Convert.ToString(TablaDeDatos.Rows(lbElementoSeleccionadoGlobal).Item("sexo"))
        Dim fechaNac As Date = Convert.ToString(TablaDeDatos.Rows(lbElementoSeleccionadoGlobal).Item("fechanacimiento"))
        Dim especialidad As String = Convert.ToString(TablaDeDatos.Rows(lbElementoSeleccionadoGlobal).Item("especialidad"))
        Dim telefono As String = Convert.ToString(TablaDeDatos.Rows(lbElementoSeleccionadoGlobal).Item("telefono"))
        Dim movil As String = Convert.ToString(TablaDeDatos.Rows(lbElementoSeleccionadoGlobal).Item("movil"))
        Dim correoe As String = Convert.ToString(TablaDeDatos.Rows(lbElementoSeleccionadoGlobal).Item("correoe"))
        Dim domicilio As String = Convert.ToString(TablaDeDatos.Rows(lbElementoSeleccionadoGlobal).Item("domicilio"))
        Dim poblacion As String = Convert.ToString(TablaDeDatos.Rows(lbElementoSeleccionadoGlobal).Item("poblacion"))
        Dim cp As String = Convert.ToString(TablaDeDatos.Rows(lbElementoSeleccionadoGlobal).Item("cp"))
        Dim provincia As String = Convert.ToString(TablaDeDatos.Rows(lbElementoSeleccionadoGlobal).Item("provincia"))
        Dim pais As String = Convert.ToString(TablaDeDatos.Rows(lbElementoSeleccionadoGlobal).Item("pais"))
 
        'Relleno las cajas con los datos del cliente seleccionado en ese momento en el ListBox
        MyPersonalTrainer.txtInicioNombre.Text = nombre & " " & apellido1 & " " & apellido2
        MyPersonalTrainer.txtInicioSexo.Text = sexo
        MyPersonalTrainer.txtInicioNacimiento.Text = fechaNac.Date 'el .Date le da el formato correcto (quita la parte HH:HH:HH -> 00:00:00)
        MyPersonalTrainer.txtInicioEspecialidad.Text = especialidad
        MyPersonalTrainer.txtInicioTelefono.Text = telefono
        MyPersonalTrainer.txtInicioMovil.Text = movil
        MyPersonalTrainer.txtInicioCorreoE.Text = correoe
        MyPersonalTrainer.txtInicioDomicilio.Text = domicilio
        MyPersonalTrainer.txtInicioPoblacion.Text = poblacion
        MyPersonalTrainer.txtInicioCP.Text = cp
        MyPersonalTrainer.txtInicioProvincia.Text = provincia
        MyPersonalTrainer.txtInicioPais.Text = pais
 
    End Sub
 

y por el otro lado en el formulario principal llamo a este procedimiento.....

Código vb:

LlenarCajasDeTexto()
 

la historia es que no me rellena la cajas :S En el módulo he definido todos los formularios así:

Código vb:

'Declaración de los formularios
    Dim MyPersonalTrainer As New MyPersonalTrainer
    Dim NuevoCliente As New NuevoCliente
    Dim ModificarCliente As New ModificarCliente
 

Con el debugger he comprobado que al procedimiento llega bien, es decir, la "propiedad text" de cada textbox se me llena con lo valores correctos, no obstante cuando ejecuto la aplicación no me llena los textboxes.