Quizás podrías crear un módulo con el método PresentacionDatos()
Al método le pasas los objetos como paramétros por referencia en lugar de por valor:
Código vb:
Ver originalPublic Module MiModulo
Public Sub PresentacionDatos(ByRef txt As TextBox, ByRef lbl As TextBox, ...)
'Códigos
txt.Text = ...
lbl.Text = ...
End Sub
End Module