Private Sub Form_Activate()
frmCadastro.Caption = "Grupo Dr Mathias Carvalho - Cadastro " & Date & " " Time
End Sub
Para que a data atualize, coloque um objeto Timer no Form e defina a propriedade Interval para 1000, assim ele atializa a cada segundo.
Private Sub Timer1_Timer()
frmCadastro.Caption = "Grupo Dr Mathias Carvalho - Cadastro " & Date & " " Time
End Sub
Espero ter ajudado.